VB 利用adodb连接access数据库 更改字段

首先我已经 “工程”-“引用”- 选了ADO2.0 library
窗体里有text1，2，3 ;cmd1
以下是代码

Dim Conn As New ADODB.Connection
Dim conStr As String
Dim Sql As String
Private Sub Command1_Click()

conStr = "Provider=Microsoft.Jet.OLEDB.4.0;"
DataSource = "D:\Access2003\Access2003\db1.mdb"

Conn.Open conStr
conStr = "insert into admin(座号,班级,不规范行为) values('" & Text1.Text & " ','" & Text2.Text & " ','" & Text3.Text & "')"
Conn.Execute conStr
Conn.Close
End Sub

运行时候提示 这行 Conn.Open conStr
“验证失败”

谁知道怎么写

或者发1个用adodb连接access的源码

我用adodc可以连接 取值 但是不知道怎么用adodc改数据库里的内容，只好用adodb

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

conStr ="Driver={Microsoft Access Driver (*.mdb)};DBQ=" D:\Access2003\Access2003\db1.mdb;pwd=;ReadOnly=True" 不要DataSource = "D:\Access2003\Access2003\db1.mdb"这一行

dim cnn as new adodb.connection'新建数据连接对象 dim rst as new adodb.recordset'新建记录集对象 cnn.open "driver={microsoft access driver (*.mdb)};dbq=数据库.mdb;defaultdir=" & app.path & ";"’打开数据库，后面跟的是连接字符串 rst.open "select * from 数据表 where id=1", cnn, 1, 3’打开数据表，取得记录，where 是条件，字段id等于1 然后就可以用了。要操作的太多了。