Dim MyWs As Workspace Dim MyDB As Database Dim WordTab As Recordset |
Set MyWs = DBEngine.CreateWorkspace?″″? ″Admin″? ″″? dbUseJet? Set MyDB = MyWs.OpenDatabase?数据库名称? False? False? Set WordTab = MyDB.OpenRecordset?″表名″? dbOpenDynaset? |
Dim LocCnn1 As ADODB.Connection Dim LocRst1 As ADODB.Recordset |
Set LocCnn1 = New ADODB.Connection LocCnn1.Open ″Provider=Microsoft.Jet.OLEDB.4.0?User ID=Admin?″ & _ ″Data Source=″ & App.Path & ″\数据库名称.mdb?″& _ ″Mode=Share Deny None?Extended Properties=''?Persist Security Info=False?″ & _ ″Jet OLEDB?Database Password='asp561rbc'?″ |
Set LocRst1 = New ADODB.Recordset LocRst1.CursorType = adOpenKeyset LocRst1.LockType = adLockOptimistic LocRst1.Open ″SELECT ? FROM 表名″? LocCnn1?adCmdText |