كيفيه ربط sqlserver2000 بالفيجول بيزك بالكود

طبعا ستقوم بتعريف متغير الاتصال في التعريف العام

Global DB As ADODB.Connection

وفي حدث التحميل ستضع هذا الكود

'HnHn
	Dim STEDB As String
	Set DB = New ADODB.Connection
	STEDB = "driver=sql server; server=(local); database=HnHnDB; trusted_connection=yes"
	DB.Open STEDB

ويمكنك الرجوع لدليلك الاسرع ستجد مثال كامل هناك ... بالتوفيق