moduleodbc.bas

用VB6.0编写的关于车辆运输调度的系统

Attribute VB_Name = "Moduleodbc"
Option Explicit
Public mDB2 As Database
Public wrkmain As Workspace

Public Sub opendbf()
     Set wrkmain = CreateWorkspace("", "admin", "", dbUseJet)
     Set db2 = wrkmain.OpenDatabase("mdb2", _
                       dbDriverNoPrompt, False, _
                       "odbc:database = pubs; uid = sa; pwd = ; dsn = mdb2")
End Sub