Asagidaki Ekleme ve Silme sorgularini VB de nasil yazarim

INSERT INTO TblMaliKart ( Print, Islem, HesapKodu, HesapAciklama, Borc, Alacak, Bakiye, HesapNo, AHesapNo, DHesapNo, CHNo, InKaNo, TakipNo )
SELECT Print, Islem, HesapKodu, HesapAciklama, Borc, Alacak, Bakiye, HesapNo, AHesapNo, DHesapNo, CHNo, InKaNo, TakipNo
FROM 01Kart0000
WHERE (((HesapNo) Like [Forms]![SysFilitre]![HesapNo]) AND ((AHesapNo) Like [Forms]![SysFilitre]![KirilimNo]));

DELETE *
FROM TblMaliKart;

Ekleme için bu şekilde kullanın..:




Silme içinde böyle..:

Ayni Sorguyu 3 - 4 sefer tekrar ediyorum VB icinde bunu kisaltmanin yolu nedir

Mesela :

If MuMForm = "01Kart0001" Then
QuerySil
Query Ekle
Forms(MuM)![Detaylar].Form.RecordSource = "TblMaliKart"
If MuMForm = "01Kart0001" Then
kriter1 = Forms![SysFilitre]![HesapNo]
kriter2 = Forms![SysFilitre]![KirilimNo]
kriter3 = Forms![SysFilitre]![DetayNo]
kriter4 = Forms![SysFilitre]![CariHesapNo]
kriter5 = Forms![SysFilitre]![InKaNo]
kriter6 = Forms![SysFilitre]![IsTakipNo]
QuerySil
Query Ekle
Forms(MuM)![Detaylar].Form.RecordSource = "TblMaliKart"
End If
If MuMForm = "03Kart0001" Then
Forms![SysFilitre]![HesapNo]=2505
kriter1 = Forms![SysFilitre]![HesapNo]
kriter2 = Forms![SysFilitre]![KirilimNo]
kriter3 = Forms![SysFilitre]![DetayNo]
kriter4 = Forms![SysFilitre]![CariHesapNo]
kriter5 = Forms![SysFilitre]![InKaNo]
kriter6 = Forms![SysFilitre]![IsTakipNo]
QuerySil
Query Ekle
Forms(MuM)![Detaylar].Form.RecordSource = "TblMaliKart"
End If

gibi Bunu bir kac sefer yazinca cok uzun oluyor nasil kisaltabiliriz