使用Convert.ToString

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()