slet recordset fra en combo box (+button)med en ADO connection

problemet er nu hvordan jeg får slettet den valgte entry fra min combobox i min MSSQL db

Uden og vide hvordan din database ser ud, så kunne det gøre således.
For og kunne slette er vi nødt til og vide noget unikt om den valgte person, jeg går ikke ud fra at navn er unikt, så jeg bygger eksemplet på at der er en id kolonne i din database tabel.

Do Until Rs.EOF
  Combo1.AddItem Rs!Initialer
  Combo1.ItemData(Combo1.NewIndex) = Rs!ID 'Gemmer et id på hver indsat person
  Rs.MoveNext
Loop

Har lavet en knap som man skal trykke på for og slette.

Private Sub cmdSlet_Click()
Dim Cn As New ADODB.Connection
Dim sql As String
  If Combo1.ListIndex <> -1 Then 'Ingen valgt
    sql = "DELETE FROM personer WHERE ID = " & Combo1.ItemData(Combo1.ListIndex)
    Cn.Execute sql 'Sletter person i db
  End If
End Sub

Der ud over skal du nok sørge for at combo boksen bliver opdateret igen, så den slettede post forsvinder.

af en eller anden grund vil den ikke accepter så jeg kan give dig point - jeg prøver lidt senere igen. Men under alle omstændigheder vil jeg takke mange gange for hjælpen.