I'm sure you've seen something like this:
Public Function AttemptLogin(ByVal Username As String, ByVal Password As String) As Boolean
Dim queryString As String = "SELECT COUNT(Username) FROM User WHERE Username=?Username AND Password=?Password"
Dim result As Integer = 0
Using connection As New OleDbConnection(connectionString)
Dim command As New OleDbCommand(queryString, connection)
command.Parameters.Add(New OleDbParameters("?Username", OleDbType.VarChar, 15)).Value = "someusername"
command.Parameters.Add(New OleDbParameters("?Password", OleDbType.VarChar, 15)).Value = "somepassword"
connection.Open()
result = command.ExecuteScalar()
connection.Close()
Return (result=1)
End Using
End Function
A guide to posting questions on CodeProject[^]
Dave Kreskowiak Microsoft MVP Visual Developer - Visual Basic
2006, 2007