CSDN論壇中VB版里經常見到一些朋友問到關于登陸的問題，這篇文章專門為初學的朋友提供一些幫助，當然希望有更好辦法的高手給予指點。

首先 文件→新建→項目 選擇windows應用程序

并在窗體上添加2個label控件、2個textbox控件、2 個buton控件如下圖（1-1）：



界面設計好后在button的click事件中寫入代碼如下：

（在程序頂部引用Imports System.Data.OleDb）

Private Sub BOk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BOk.Click
'定義
Dim olecn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb")
Dim olecm As New OleDbCommand("select * from Login", olecn)
Dim olead As New OleDbDataAdapter
Dim olerd As OleDbDataReader
Dim pd As Boolean = False '定義boolean為后面錯誤處理使用
Dim i As Integer
olecm = New OleDbCommand("select * from Login", olecn)
'與數據庫建立連接
olecn.Open()
olerd = olecm.ExecuteReader
'循環判斷與數據庫中數據是否相同
Do While olerd.Read()
For i = 0 To olerd.FieldCount - 1
If Trim(TUser.Text) = (olerd.Item("帳號")) And Trim(TPassword.Text) = (olerd.Item("密碼")) Then
MsgBox("成功登陸")
pd = True
Exit Sub
End If
Next
Loop
TUser.Text = ""
TPassword.Text = ""
TUser.Focus()
olerd.Close()
olecn.Close()
End Sub

整個過程就做完