发布于 2010-09-13 21:07:59
2楼
Dim strSQL,MyConn,MdbFile
MdbFile = "E:\MyMdb\test.mdb"
strSQL = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & MdbFile & ";" _
& "Mode=ReadWrite;Persist Security Info=False"
Set MyConn = CreateObject("ADODB.Connection")
With MyConn
.ConnectionString = strSQL
.CursorLocation = 3
.Open
End With
无论成与败,无论甜与苦,我还是我。