请教VB高手帮忙看看错在哪里！急急急！！！

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
提示的错误是在form的rs.Open sql, conn, adLockOptimistic这个语句上 

Answer 1

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

Answer 2

rs.Open sql, conn, adLockOptimistic-->
rs.open sql,conn ,adOpenKeySet,adLockOptimistic

Answer 3

这个里面的adOpenKeySet，adLockOptimistic 是什么啊？？是属性还是其他？谢谢

Answer 4

http://download.csdn.net/source/1498324

Answer 5

rs.Open sql, conn, adLockOptimistic-->
rs.open sql,conn ,3,2