Public conn As ADODB.Connection
Public rst As ADODB.Recordset
Set conn = New ADODB.Connection
Set rst = New ADODB.Recordset
conn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=數據庫名;Data Source=數據庫名"
conn.CursorLocation = adUseClient
conn.Open
rst.Open "select * from 數據庫名.dbo.表名", cnn, adOpenStatic, adLockPessimistic
----------------------------------
VB6.0遠程連接SQL SERVER2000
Public conn As ADODB.Connection '數據連接
Set conn = New ADODB.Connection
conn.Open "{SQL SERVER};SERVER=192.168.1.11;DATABASE=數據庫名;USER ID=打開數據庫用戶名;PASSWORD=打開數據庫密碼"