关于ADO连接ACCESS数据库的问题？请各位帮帮！！在线等待

Question

Option Explicit
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strsql As StringPrivate Sub Command1_Click()
  Set DataGrid1.DataSource = rs
  Set MSHFlexGrid1.DataSource = rs
End SubPrivate Sub Form_Load()
  Set cnn = New ADODB.Connection
  cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\mydb.mdb;Jet OLEDB:Database Password=zcb;Persist Security Info=False;"  strsql = "select * from mytable"
  Set rs = New ADODB.Recordset
  rs.Open strsql, cnn, adOpenKeyset, adLockOptimistic
End Sub