Private Sub Command1_Click()
Adodc1.Connection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[ACCESS文件路徑]"
Adodc1.RecordSource="Select * from 用戶表 where 用戶名字段='"+用戶名文本框+"' and 密碼字段='"+輸密碼文本框+"'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox("驗證失敗!")
Text1=""
Text2=""
Text1.SetFucos
Else
Me.Hide
要登陸的窗體名稱.Show
End Sub
這樣就搞定了,這裏是用到壹個Microsoft ADO Control 6.0控件,去工程,部件裏找到他勾上應用,拖到窗體上,把他的Visible屬性改成 False,不然他很醜,默認名稱是Adodc1