WindowsForm登陆窗体的制作(Vb.net Access)

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
源代码网推荐
源代码网推荐 整个过程就做完了简单吧。
源代码网推荐