用VB连接数据库

选添加ADODB控件
Function o_Connection() As ADODB.Connection
Dim Conn
Dim AuthConnectionString As String
Set Conn = CreateObject("ADODB.Connection")
AuthConnectionString = "DBQ=" & App.Path & "\don.mdb;Driver={Microsoft Access Driver (*.mdb)};"
Conn.Open AuthConnectionString
Set o_Connection = Conn
End Function

Function rs_hs(sql As String, Conn As ADODB.Connection) As ADODB.Recordset

If InStr(UCase(sql), "INSERT") > 0 Or InStr(UCase(sql), "DROP") > 0 Or InStr(UCase(sql), "DELETE") > 0 Or InStr(UCase(sql), "CREATE") Then
Conn.Execute sql
Else
Dim rs1 As New ADODB.Recordset
rs1.Open sql, Conn, 3, 3
End If
Set rs_hs1 = rs1
End Function
这是我写的一套数据库打开函数可直接用
至于SQL只要将
"DBQ=don.mdb;Driver={Microsoft Access Driver (*.mdb)};"
改为"Provider=Sqloledb; User ID=sa; Password=; Initial Catalog =