Connection String değiştirerek ve sütun değerlerine uyumlu hareket ederek, bu verdiğim kodları MsSQL 2000 ve üzeri kullanabilirsiniz.

General bölümüne

Public mobjConn As New ADODB.Connection, mobjCmd As New ADODB.Command, mobjRst As New ADODB.Recordset

Database ile bağlantı kurmak için (Connection String burada devreye giriyor.)

mobjConn.Open "Driver={SQL Server};Server=(local);Database=test"

Belli bir satırın sütun verilerini çekmek için

mobjRst.Open "SELECT * FROM tablo1 WHERE sutun1 = 1", mobjConn, 1, 3
MsgBox mobjRst!sutun2
mobjRst.Close

Belli bir tabloda bütün satır verilerini çekmek için

mobjRst.Open "SELECT * FROM tablo1", mobjConn, 1, 3
Do Until mobjRst.EOF
List1.AddItem mobjRst!sutun2
mobjRst.MoveNext
Loop
mobjRst.Close

Sorgu kodu çalıştırmak için ise

mobjConn.Execute "UPDATE tablo1 SET sutun2 = 'Test' WHERE sutun1 = 1"