'工程->引用Microsoft ActiveX Data Objects 2.x Library
Option Explicit
Public mCnnString As String '连接字符串
Dim mRst As New ADODB.Recordset
Private Sub Command1_Click()
Dim mCon As New ADODB.Connection
mCon.Open mCnnString
mRst.CursorLocation = adUseClient
mRst.Open "Select * From Table1", mCnnString, adOpenStatic, adLockOptimistic, adCmdText
Set MSHFlexGrid1.DataSource = mRst
End Sub
Private Sub Form_Load()
mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
End Sub
Private Sub Form_Terminate()
If mRst.State = adStateOpen Then
mRst.Close
Set mRst = Nothing
End If
End Sub