Şu şekilde deneyin lütfen:
If MsgBox("'" & ListBox2.Text & "' adlı konuya ait bilgi ve kodlar silinecektir, emin misiniz?", vbYesNo, "mumya66") = vbYes Then
If OptionButton1.Value = True Then tabloadi = "tablo1"
If OptionButton2.Value = True Then tabloadi = "tablo2"
If OptionButton3.Value = True Then tabloadi = "tablo3"
If OptionButton4.Value = True Then tabloadi = "tablo4"
Set rs = CreateObject("ADODB.recordset")
Tanimlanan = "SELECT * FROM " & tabloadi & " where kimlik=" & CInt(ListBox2.List(ListBox2.ListIndex, 0))
rs.Open Tanimlanan, AdoCN, 1, 3
rs.Delete
ListBox2.RemoveItem (ListBox2.ListIndex)
Set rs = Nothing