Visual Basic para Aplicaciones - COMO HACER UNA RUTINA QUE ELIMINE REGISTROS EN UN LISTBOX Y E LA BASE DE DATOS A LA VEZ

Private Sub Btn_Elimina_Click()

    Dim Fila As Integer

    Dim Final As Integer

    If Me.Buscar_List.ListIndex = -1 Then

        MsgBox "Debe seleccionar un registro"

        Exit Sub

    End If

    'Buscamoos la última fila

        Fila = 2

        Do While Hoja2.Cells(Fila, 1) <> ""

            Fila = Fila + 1

        Loop

        Final = Fila - 1

    If MsgBox("¿Seguro que quiere eliminar este Registro?", vbQuestion + vbYesNo) = vbYes Then

            For Fila = 2 To Final

                If Hoja2.Cells(Fila, 1) = xEmpleado Then

                    Hoja2.Cells(Fila, 1).EntireRow.Delete

                    Exit For

                End If

            Next

            Call UserForm_Initialize

            MsgBox "Registro eliminado", vbInformation + vbOKOnly

        Else

            Exit Sub

    End If

End Sub