Option Explicit
Dim Vid As String
Dim WithEvents adoPrimaryRS As Recordset
Dim Sheet%
Private Sub Form_Load()
SysPath = App.Path
If Len(SysPath) > 3 Then SysPath = SysPath & "\"
DatabaseName = SysPath & "NWIND.mdb"
Dim SQLStr As String
Dim db As Connection
'access连接字
ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DatabaseName & _
";Persist Security Info=false"
Set db = New Connection
db.CursorLocation = adUseClient
db.Open ConnectString
Set adoPrimaryRS = New Recordset
SQLStr = "select * from Orders order by orderid"
adoPrimaryRS.Open SQLStr, db, adOpenStatic, adLockOptimistic
Set VSFlexGrid1.DataSource = adoPrimaryRS
Lbl已有订餐单位资料.Caption = "已有数量：" & adoPrimaryRS.RecordCount
adoPrimaryRS.Close
Set adoPrimaryRS = Nothing
db.Close
Set db = Nothing
End Sub
