Actualizar un Combo

[spiderman78]

Que tal de nuevo aqui solicitando de su ayuda, miren lo q quiero hacer es q cuando elimino un registro se me actualice mo combo ya q ahi me sigue apareciendo hasta que no entro y salgo del formulario, este es mi codigo:

Código:

Private Sub Eliminar()
    Call VisualizarPacientes
    Dim s As Integer
           s = MsgBox("¿Esta Seguro que desea Eliminar el Paciente?", vbYesNo, "Control Pacientes  -  EDMAC")
        If s = vbYes Then
    Set RecBD = New ADODB.Recordset
    RecBD.Open "DELETE FROM pacientes WHERE id=" & Val(text1(0)), BD, adOpenStatic, adLockOptimistic
    Set RecBD = Nothing
    Call LimpiarPacientes
    Else
        Exit Sub
        End If
End Sub

Saludos y Gracias