If btnSave.Text = "Save" Then
Dim ct1 As String = "SELECT [Username] FROM tblCredentials WHERE Username='" & txtUsername.Text & "'"
cmd = New OleDb.OleDbCommand(ct1)
cmd.Connection = cnn
rdr = cmd.ExecuteReader()
Answer :
Dim querystr asString="SELECT Count(Username) FROM tblCredentials...
Dim querystr asString="select value from [your tabelwhere] ID=3"
Dim mycmd AsNew SqlCommand(querystr, connection)
dim value asObject= mycmd.ExecuteScalar()
if value = 3 then
msgbox("meron")
else
msgbox("wala")
end if