VB6 訪問SQL 資料庫一般有 ADO,DAO,ODBC 幾中方式，主要根據實際情況決定採用那種方式。

如：

1、在窗體中放置data 資料控制元件,採用 ODBC 方式訪問 SQL 資料庫，可以這樣設定

ConStr="ODBC;Driver={SQL Server};Server=伺服器名稱（本地電腦名）;

Uid=sa;Pwd=;

DataBase=資料庫名;LoginTimeOut=0“

設定 Data1 連線屬性

With Data1

.DatabaseName = ""

.Connect = ConStr

.RecordSource = ”Select * From 資料表“ "取得資料來源的SQL語句

.Refresh

End With

這樣就可以連線資料庫了 。

2、在程式中利用 ADO 的方式

Dim myCon As New ADODB.Connection

Dim snRes As New ADODB.Recordset

Dim ConStr$

ConStr="Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa; Password=;

Data Source =伺服器名;Initial Catalog=資料庫名;"

"建立資料連線

myCon.Open ConStr

‘建立資料集

snRes.Open "Select * From 表名",myCon, adOpenStatic, adLockReadOnly

這裡開啟資料記錄集時，可以選擇多種引數,可以參考一下幫助檔案...