في الحقيقية في فيجوال بيسك لا تختلف طريق ريط SQL2000 عن SQL7

و سأشرح الطريقة باذن الله تعالى :

1- فتح الاتصال ويسمى Connection String :


كود:
Dim Cnn As New Connection

ServerName = "اسم السيرفر"
'تستطيع وضع رقم ايبي الجهاز بدلا من اسم السيرفر أو اتركه فارغاً اذا كان السيرفر على نفس الكمبيوتر
DatabaseName = "اسم قاعدة البيانات"

Set cnn = New Connection
With cnn
.Provider = "sqloledb"
CON = "user id=sa;data source=" & ServerName & ";initial catalog=" + DatabaseName & ";"
.ConnectionString = CON
.Open
End With
'بهذا يكون الاتصال مع السيرفر قد تم2

- قراءة بيانات جدول :

كود:
Dim Rs as new recordset
Rs.Open "select * from "اسم الجدول في قاعدة البيانات" ", cnn, 2, 2
Do While Rs.EOF = False

Msgbox Rs.Fields!اسم العمود

Rs.MoveNext
Loop