bende buradan indirdiğim bi dosyada bu şekilde bi örnek vardı oradan sadece o kısmı yazayım sana kendin göre değiştir

 If Me.ComboBox1.Text > "" Then



 Dim Sql As New String("SELECT * FROM Kayitlar WHERE Kayitlar.AdiSoyadi='{0}'")

 Sql = String.Format(sql, ComboBox1.SelectedItem)

 Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'")

 Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)

 Dim sonuc As Integer

 baglanti.Open()

 sonuc = komutnesnesi.ExecuteNonQuery()

 If sonuc = 1 Then

 MsgBox("Hatayı Kontrol Ediniz.", MsgBoxStyle.Exclamation, "Silme İşlemi")



 End If

 Listele(sql)

 baglanti.Close()

 Else

 Dim Sql As New String("SELECT * FROM Kayitlar '")

 Sql = String.Format(sql, ComboBox1.SelectedItem)

 Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='kayıt.mdb'")

 Dim komutnesnesi As New OleDb.OleDbCommand(sql, baglanti)

 Dim sonuc As Integer

 baglanti.Open()

 sonuc = komutnesnesi.ExecuteNonQuery()

 If sonuc = 1 Then

 MsgBox("Hatayı Kontrol Ediniz.", MsgBoxStyle.Exclamation, "Silme İşlemi")



 End If

 Listele(sql)

 baglanti.Close()

 End If

kodu comboboxın içine yazarsın o örnekte farklı yerdeydi

 Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged



 End Sub

silme işlemi felan yazıyor msgboxta ama önemli değil o sen bi dene bu kodu