Dim KayitSeti As Recordset
Dim db As Connection
Adodc1.ConnectionString = "Provider=microsoft.jet.oledb.3.51;persist _
security info=false;data source=Data.mdb"
Adodc1.RecordSource = "Tablo"
Set DataGrid1.DataSource = Adodc1
'Sorgu---------------------------------
Set db = New Connection
db.Open Adodc1.ConnectionString
Set KayitSeti = New Recordset
X_1 = "select [No],Keside,ciranta,vade,v_durum,tutar,banka from Hareket _
Where (v_durum = '"
X_2 = "') Order by " & X_3
KayitSeti.Open X_1 + Combo1.Text + X_2, db, adOpenStatic, adLockOptimistic
Set Adodc1.Recordset = KayitSeti
Set DataGrid1.DataSource = KayitSeti
|