选添加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 = abcd; Data Source=(local)" 就OK了 |