baglanti.Open strbaglanti
    Adodc1.ConnectionString = strbaglanti
    Adodc1.CommandType = adCmdTable
Set kayitset1 = New ADODB.Recordset
    tablo = "KONTROL"
    kayitset1.Open tablo, strbaglanti, adOpenKeyset, adLockOptimistic
    For i = 0 To kayitset1.RecordCount - 1
    kayitset1.Delete
    kayitset1.Update
    kayitset1.MoveNext
    Next i
Set DataGrid1.DataSource = Adodc1
Set kayitset1 = Nothing
Set baglanti = Nothing
   Adodc1.Refresh
   DataGrid1.Refresh