求助 data 的用法
想做一个进入系统的界面
由用户名+密码
textbox 2个 data 一个 按钮一个
但是不知道怎么连接 到数据库
求救
Dim username, password As String
Private Sub Command1_Click()
On Error Resume Next
Data1.RecordsetType = 0
username = Text1.Text
password = Text2.Text
Data1.DatabaseName = "D:\vb±à³Ì\Êý¾Ý¿âÎļþ\ÃÜÂë.mdb"
Data1.RecordSource = "用户名"
此处好象需要写 些什么 但是我不知道
帮 帮忙啊
If Data1.Recordset.Fields("用户名") = username Then
If Data1.Recordset.Fields("密码") = password Then
Form2.Show
Unload Me
Else
MsgBox "ÃÜÂë´íÎó"
End If
Else
MsgBox "ÎÞ´ËÓû§"
Exit Sub
End If
End Sub
