這是一個例子。Access 中有一個表，“學生表”，表中有“姓名”，"學號"欄位。

VB窗體有兩個，一個名為“Form1", 另一個名為"Form2"

Form1是登入窗體，該窗體上有Text1, Text2 和Command1控制元件。 在Form1窗體中加入下面程式碼：

Public cnn As New ADODB.Connection

Public rs As New ADODB.Recordset

Private Sub Form_Load()

cnn.Open "Driver=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\學生表.mdb;"

End Sub

Private Sub Command1_Click()

If (Text1.Text = "") Or (Text2.Text = "") Then

MsgBox "使用者名稱和密碼不能為空！", vbOKOnly, "提示："

End If

rs.Open "SELECT * FROM 學生表 where 姓名="" & Text1 & "" and 學號="" & Text2 & """, cnn, adOpenKeyset, adLockOptimistic

If rs.RecordCount > 0 Then

If rs.Fields("學號") = Text2.Text Then

MsgBox "登入成功！"

Unload Me

Form2.Show

Else

Unload Me

End If

End If

rs.Close

End Sub