Dim mm As String
xm = Trim(Text1.Text)
mm = Trim(Text2.Text)
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\表.mdb" & ";Persist Security Info=False"
db.Open
If db.State = adStateOpen Then
MsgBox "數據庫連接成功！！！ "
Else
MsgBox "數據庫連接失敗！！！ "
Exit Sub
End If
Dim sql As String
sql = "select * from 表名 where 姓名='" & xm & "'" & " and 密碼='" & mm & "'"
rs.Open sql, db, adOpenStatic, adLockReadOnly
If rs.RecordCount > 0 Then
Form1.Hide
Form2.Show
Else
MsgBox "用戶名或密碼錯誤,請重新輸入！", vbCritical + vbOKOnly
End If
db.Close
這是VB6.0做的，應該差不多的吧，妳看下思路，自己改下