سلام،
اول این کد رو وارد کن:
Imports System.Data.OleDb
Dim cn As OleDbConnection = New OleDbConnection("your connection string")
cn.Open()
Dim cmd As OleDbCommand = New OleDbCommand("select * from users where user like '" + user_txt.Text + "' and pass like '" + pass_txt.Text + "'", cn)
Dim rd As OleDbDataReader = cmd.ExecuteReader
If (rd.Read) Then
'login
Else
'error
End If
your connection string-> کانکشن استرینگ تون
users-> نام table
نام ستون یوزر ها<-user
نام ستون پسوورد ها<-pass
username text box <-user_txt.Text
pass_txt.Text-> password text box