Add new comment

Public sConn As OleDbConnection
Dim lDS As DataSet = New DataSet
Dim lDA As OleDbDataAdapter = New OleDbDataAdapter
Dim lDR As DataRow

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sConn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\db.mdb;Persist Security Info=False")
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
' Login Button
sConn.Open()
lDA.SelectCommand = New OleDbCommand("SELECT * FROM table1 WHERE username='" & TextBox1.Text.ToString & "' and password='" & TextBox2.Text & "'", sConn)
lDS.Clear()
lDA.Fill(lDS)

If lDS.Tables(0).Rows.Count > 0 Then
' Put the codes for a VALID login
Else
' Codes for INVALID Login here!
End If

lDR = Nothing
lDS.Dispose()
lDA.Dispose()
sConn.Close()
End Sub

this was from a loginform template i have since 2003. Hope that helped.