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
'¿ÉÊdzöÏÖ¡°ÕÒ²»µ½¿É°²×°µÄ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= ·½Ê½¡£