VB连接ACCESS - -到底错在那里

Dim mlink As String, sql As String
Set db = New ADODB.Connection
Set rs = New ADODB.Recordset
db.CursorLocation = adUseClient
mlikn = "Provider=Microsfot.JET.OLEDB.4.0;Data Source=" & App.Path & "\books.mdb"
db.Open mlink

sql = "select * from wanjian"
rs.Open sql, db, adOpenStatic, adLockOptimistic
Set Data1grid1.DataSource = rs

Dim mlink As String
Dim sql As String
Dim db As New ADODB.Connection
Dim rs As New ADODB.Recordset
db.CursorLocation = adUseClient
mlikn = "Provider=Microsfot.JET.OLEDB.4.0;Data Source=" & App.Path & "\books.mdb;Persist Security Info=False"
db.Open mlink
rs.CursorLocation = adUseClient
sql = "select * from wanjian"
rs.Open sql, db, adOpenDynamic, adLockOptimistic
Set Data1grid1.DataSource = rs

Dim Mlink As String, sql As String
Set db = New ADODB.Connection
Set Rs = New ADODB.Recordset
Mlink = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\books.mdb;Persist Security Info=False;Mode=ReadWrite|Share Deny None"
db.CursorLocation = adUseClient
db.ConnectionString = Mlink
db.Open

sql = "select * from wanjian"
Rs.Open sql, db, adOpenStatic, adLockOptimistic
Set Data1grid1.DataSource = Rs