只是连接方法不同而已,语法完全一样。
Option Explicit
Public conn As ADODB.Connection
Sub Main()
Set conn = New ADODB.Connection
Dim sql As String
sql = "dbq=" & App.Path & "\db\sms.mdb;Driver={Microsoft Access Driver (*.mdb)}" '连Access数据库
'sql = "Driver={SQL SERVER};Server=(local);UID=sa;PWD=;Database=sms" '连SQL数据库
conn.Open sql
Form3.Show
End Sub