请问谁有用ADO引用的原代码啊 给我看看行吗 很急最好是今天之内 谢谢了

Question

什么意思？你不会用ADO连接数据库，还是

Answer 1

http://www.wzjcw.net/vbgood/taishan/index.html

Answer 2

Dim DataPath As String, i As Long, Mp3Count As Long, SearchTxt As String
DataPath = App.path + "\MyMP3.mdb"
Dim myCon As ADODB.Connection
Dim myRS As New ADODB.Recordset
Set myCon = New ADODB.Connection
myCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataPath & " ;Persist Security Info=False"
myCon.Open
myRS.CursorLocation = adUseClient是这个吗？

Answer 3

连SQL SERVER：
dim cn as new aodb.connection
dim  ssql as string
cn.connectionstring="sqloledb.1;persist security info=false;user id=sa;data source=servername;initial catalog=databasename"