大家好？
我现在想学一下ｖｂ的数据库连接这一块，由谁能指导一下，领我入门　吗？谢谢，指点一下就行  

尤其是data和ado两方面！

'在模塊內建立如下 Public cn As ADODB.Connection Public rs As ADODB.Recordset Public Sub connectdb() Set cn = New ADODB.Connection cn.ConnectionString = "dsn=();uid=();pwd=();database=SQL Server" '第一（）為你設置的DSN連接，第二個為用戶，第三個為密碼 cn.Open End Sub 祝你好運，有事請CALL: rubin.hu@act-cn.com

楼上用的是ODBC连接，以下是OLEDB连接：
Public con as ADODB.Connection
Public Function Connect() as Boolean
   On Error Goto err1
   Set con=new ADODB.Connection
   con.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=(路径)"
   con.Open
   Connect=True
   Exit Function
err1:
   MsgBox "错误代码：" & err.number & vbcrlf & "错误描述：" & err.Description,VbInformation,"错误"
   Connect=False
End Function

Public con as ADODB.Connection Public Function Connect() as Boolean On Error Goto err1 Set con=new ADODB.Connection con.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=(路径)" con.Open Connect=True Exit Function err1: MsgBox "错误代码：" & err.number & vbcrlf & "错误描述：" & err.Description,VbInformation,"错误" Connect=False End Function 红色的那句可以不要，不过第一句要改成Public con as new ADODB.Connection

楼上的注意Public con as new ADODB.Connection和Public con as ADODB.Connection,Set con=new ADODB.Connection的区别

看樣子還是使用OLEDB比較好。至少要快些。

请问五搂的大个Public con as new ADODB.Connection和Public con as ADODB.Connection,Set con=new ADODB.Connection的区别是什么？我不知道。你能告诉我吗？谢谢
      回答的不对，对不起了

是不是第一句改为dim con as new ADODB.connection就对了？

通過OLEDB連接 Public Sub connectdb() Dim uID As String Dim userpsw As String Dim dbname As String Dim hostname As String Dim FileName

FileName = FreeFile Open App.Path + "\db.ini" For Input As FileName Input #FileName, uID, userpsw, dbname, hostname

Set cn = New ADODB.Connection cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID= " & uID & ";Password=" & userpsw & ";Initial Catalog=" & dbname & ";Data Source=" & hostname cn.Open End Sub 請大家多多指教.