ado.bas

是用VB^开发的办公室车辆使用管理软件

Attribute VB_Name = "ado"
    Public con As Connection
Sub aa()
      Set con = New Connection
      con.CursorLocation = adUseClient
      con.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\cheliang.mdb"
End Sub