Dim resultcmd As New OdbcCommand
resultcmd.Connection = conn
resultcmd.CommandType = CommandType.StoredProcedure
resultcmd.CommandText = "purchase.dbo.returnlcbh ?"
Dim para1 As OdbcParameter = resultcmd.Parameters.Add("@seqno", OdbcType.Double)
para1.Value = CDbl(seqno.Text.Trim)
Dim strins As String = Convert.ToString(resultcmd.ExecuteScalar())
If strins = Nothing Then
save_button.Enabled = True
Else
save_button.Enabled = False
End If
resultcmd.Dispose()