connect_db.bas

来自「Usb Key loock vb soucrse code. ocx not f」· BAS 代码 · 共 22 行

Attribute VB_Name = "Connect_DB"
Public Sub Connect_Mdb()
'----------------------------------------------------------------------------------------------------------
'// MDB单捞磐海捞胶俊 立加阑 茄促
'----------------------------------------------------------------------------------------------------------
Dim i_files As String
On Error Resume Next
i_files = App.Path & "\" & lists.mdb

If Dir(i_files) <> "" Then
  Set conn = New ADODB.Connection
  conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\lists.mdb"
  conn.Open
Else
  MsgBox "澜厩规价 单捞磐 颇老捞 粮犁窍瘤 臼嚼聪促.", vbCritical, frmmain.Caption
  End
End If
Exit Sub


End Sub