我是菜鸟，请大家帮帮我（VB中连接数据源）

Question

用ADO吧！
ADO 教程 (VB) 
Public Sub main()Dim conn As New ADODB.Connection
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
‘步骤 1
conn.Open "DSN=pubs;uid=sa;pwd=;database=pubs"
‘步骤 2
Set cmd.ActiveConnection = conn
cmd.CommandText = "SELECT * from authors"
‘步骤 3
rs.CursorLocation = adUseClient
rs.Open cmd, , adOpenStatic, adLockBatchOptimistic
‘步骤 4
rs("au_lname").Properties("Optimize") = True
rs.Sort = "au_lname"
rs.Filter = "phone LIKE '415 5*'"
rs.MoveFirst
Do While Not rs.EOF
    Debug.Print "Name: " & rs("au_fname") & " "; rs("au_lname") & _
        "Phone: "; rs("phone") & vbCr
    rs("phone") = "777" & Mid(rs("phone"), 5, 11)
    rs.MoveNext
Loop‘步骤 5
conn.BeginTrans‘步骤 6 - A
On Error GoTo ConflictHandler
rs.UpdateBatch
On Error GoTo 0conn.CommitTransExit Sub‘ 步骤 6 - B
ConflictHandler:rs.Filter = adFilterConflictingRecords
rs.MoveFirst
Do While Not rs.EOF
    Debug.Print "Conflict: Name: " & rs("au_fname"); " " & rs("au_lname")
    rs.MoveNext
Loop
conn.Rollback
Resume NextEnd SubVisual Basic 教程到此结束。 

Answer 1

可以来个CnStr.ini文件，
加一个Fuction GetConnectString()来读取
这样你想连哪个就连哪个，与程序基本没什么关联

Answer 2

inforum(坛中人,不得不用VB) ,具体怎么做啊，能说详细点吗？

Answer 3

INI文件
[Main]
Database=CCC
[CCC]
DatabaseDriver=SQLOLEDB.1
Server=
DataBaseName=
UserID=
PassWord=
DSName=
CNTime=15
DBType=0    ;0:SQL Server
            ;1:Oracle
            ;2:Access
            ;3:Other
DSN=1       ;0:No User,1:User ODBC DSN

Answer 4

然后从INI文件中取出DATABASE的参数
再用water_j(jxp) (  ) 做就行了

Answer 5

Dim strSQL as String
Dim strDataPath as String
Dim adoCon As ADODB.Connection
Dim adoRes As ADODB.Recordset
Set adoCon = New ADODB.Connection
strDataPath = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & Access文件路径（你可以根据ADODC来写ODBC地连接-Adodc1.ConnectionString）
adoCon.Open (strDataPath)
Set adoRes = New ADODB.Recordset
strSQl = "select * from ....."
Set adoRes = adoCon.Execute(strSQl)
.......
adoRes.Close
Set adoRes = Nothing
adoCon.Close