求教

Question

http://www.csdn.net/expert/topic/624/624137.xml?temp=.2873957

Answer 1

http://www.csdn.net/expert/topic/624/624137.xml?temp=.2873957

Answer 2

Dim cn As ADODB.Connection
Dim rs As ADODB.RecordsetPrivate Sub Form_Load()
    Set cn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=MYSQL数据库文件;Mode=ReadWrite|Share Deny None;Persist Security Info=False"
    rs.Open "", cn, adOpenStatic, adLockOptimistic
    
End Sub

Answer 3

http://www.csdn.net/expert/topic/606/606399.xml?temp=.8538324