vb连接access数据库，验证帐号和密码的源码

conStr = "Provider=Microsoft.Jet.OLEDB.4.0"DataSource = "D:\Access2003\Access2003\db1.mdb"这2行不能分开写，不然你的conStr中找不到数据库。。。改为：conStr = "Provider=Microsoft.Jet.OLEDB.4.0DataSource = D:\Access2003\Access2003\db1.mdb"

Private Sub Command1_Click()

Dim A As String

A = App.Path + "\ACCESS文件.mdb"

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &A &"Persist Security Info=False"

Adodc1.RecordSource = "SELECT * FROM 用户表 WHERE 用户名='" + 用户名 + "' AND 密码='" + 密码 + "'"

Adodc1.Refresh

If OT Adodc1.Recordset.EOF Then

主切面.Show

Me.Hide

Else

MsgBox ("用户名或密码错误!请重新输入!")

Me.用户名 = ""

Me.密码 = ""

'清空文本框内容

End If

End Sub

' 上面是登陆，把ACCESS建立在VB工程一个文件夹里取相对的路径

下面是注册用户表：

Private Sub Command2_Click()

Dim A As String

A = App.Path + "\ACCESS文件.mdb"

Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &A &"Persist Security Info=False"

Adodc1.RecordSource = "SELECT * FROM 用户表 "

Adodc1.Refresh

If OT Adodc1.Recordset.EOF Then

Adodc1.recordset.AddNew

Adodc1.recordset.fields("用户名")=文本框1

Adodc1.recordset.fields("密码")=文本框2

.....................

Adodc1.recordset.update

文本框1=""

文本框2=""

......

文本框1.setfocus

ELSE

文本框1=""

文本框2=""

.....

文本框1.setfoucus

end if

end sub

---