VB挂access数据库，不知道错在哪里，请高手帮忙！急急急

Question

Dim conn As New ADODB.Connection
Dim rs As New ADODB.ConnectionPrivate Sub Command1_Click()
 rs("入库日期") = Label9.CaptionEnd SubPrivate Sub Command2_Click()
男女鞋入库.Show
Me.Hide
End SubPrivate Sub Form_Load()
Dim sql As String
sql = "select * from [ctt]"
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "/db1.mdb"
rs.Open sql, conn, adLockOptimistic
Label9.Caption = DateEnd Sub

Answer 1

Private Sub Command1_Click()
 rs("入库日期") = Label9.Caption
rs.Update
End Sub

Answer 2

提示的错误不在这个语句上面是在form的rs.Open sql, conn, adLockOptimistic这个语句上 

Answer 3

实时错误'-2147467259（80004005）
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序

Answer 4

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb"

Answer 5

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & App.Path & "\db1.mdb; " 
set rs=conn.execute(sql)这句：
rs.Open sql, conn, adLockOptimistic
参数也不对，adLockOptimistic是锁定方式，在它前面还有一个游标类型参数...