Option Explicit ' Bağlantı için nesne oluşturu
luyor. Dim conn As New ADODB.Connection Privat
e Sub cmdCommand1_Click() Dim rs As New ADOD
B.Recordset Dim dizi() As String conn.Curso
rLocation = adUseClient conn.ConnectionStri
ng = "uid=db_kullanıcı_adı;pwd=Db_parolası;
" _ & "server=sunucu_adı;" _ & "driver={MyS

QL ODBC 3.51 Driver};" _ & "database=Databa

seAdı;" ' Bağlantı yapılıyor. conn.Open 
nesnesine bilgi çekiliyor. rs.Open "select 
no,adi,soyadi from tablo", conn, adOpenDyna

mic, adLockOptimistic 'Recordseti grid obje

sine bind edebiliriz. Set DataGrid1.DataSou

rce = rs 'Ve satır nesnesine ulaşabilirsini

z. Dim satir As String satir = rs!adi 'Veya

 sorgumuzdaki tüm kayıtları bir listbox'a e

kleyebiliriz. Do While Not rs.EOF List1.Add
Item (rs!adi) rs.MoveNext Loop ' Komutlar ş
u şekilde örnek bir insert işlemi. conn.Exe
cute "insert into tablo (adi,soyadi) values
 ('Taner','özdaş')" 'örnekler çoğaltılabili

r.  'Bağlantıyı kapatmayı unutmamalıyız !

 conn.Close End Sub