vb数据库的问题

Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
Dim l As String
Dim sql As String
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source =F:\scores.mdb; pwd=q1"
sql = "select * from 成绩"
conn.Execute sql
'DataGrid1.DataSource = conn
rs.CursorLocation = adUseClient
rs.Open sql, conn, adOpenDynamic, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
End Sub
‘我的数据库的密码是q1
'可是出现“找不到可安装的ISAM”的错误
还有，我想请教一下各位高手，有没有学习vb数据库好的教材，或地址
也可发到我的邮箱you19890723@126.com 谢谢了

---

VB code:
with conn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=f:\scores.mdb;Jet OLEDB:Database Password=q1"
.Open
.CommandTimeout = 0
End With

---

安装mdac........

---

VB code:
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\scores.mdb;User Id=admin;Password=q1;"

---

或者数据库密码用 1 楼的 Jet OLEDB:Database Password= 方式。