Eliminar elemento de la lista y de la base de datos

[ederviera]

hola quisiera que me ayudaran para resolver esto, necesito que cuando hago un clic en mi listado que tengo en la listbox me borre no solo ese index que se como hacerlo sino que tambien borre el registro ese de mi base de datos sql de mi tabla.

tengo este codigo pero no logro hacer que me borre el registro, abri la tabla etc pero no logro.

________________

Private Sub cmdborrar_Click()
Dim cadenas As String
Dim cod As Long


Set MiConexion = New ADODB.Connection



MiConexion.ConnectionString = "Provider=SQLOLEDB.1;Password=" & SQLSena & ";Persist Security Info=True;User ID=" & SQLUser & ";Initial Catalog=" & SQLBase & ";Data Source=(local)"

MiConexion.Open


rsEmpleados.Open "Empleados", MiConexion, adOpenDynamic, adLockOptimistic
If rsEmpleados.EOF = True And rsEmpleados.BOF = True Then


GoTo BorrarEmpleados






BorrarEmpleados:

If lstcargados.ListIndex > -1 Then

cadenas = lstcargados.List(lstcargados.ListIndex)
cod = (lstcargados.ListIndex)





rsHistoricos.Delete
lstcargados.RemoveItem cod
Else
MsgBox "Seleccione un empleado en el listado para poder eliminarlo", vbInformation
End If
End If
End Sub

____________________

gracias