Uso de Combobox

[spiderman78]

Que tal Avellaneda gracias por tu respuestas, sobre la primera pregunta si efectivamente cuando agrego el registro llamo al agregar al combox mira mi codigo es el siguiente al momento q agrego un registro.

Código:

Private Sub AgregarPaciente()
     Set RecSQL = New ADODB.Recordset
         RecSQL.Open "INSERT INTO pacientes (fecha,nombre,apellidos,ocupacion,recomendado,nacimiento,edad,sexo,proxima,tel1,tel2,tel3,tel4,calle,colonia,municipio,estado,pais,antecedentes)" & _
         "VALUES (" & txtfecha & ",'" & text1(1) & "','" & text1(2) & "','" & text1(3) & "','" & text1(4) & "','" & text1(5) & "','" & text1(6) & "','" & text1(7) & "','" & text1(8) & "','" & text1(9) & "','" & text1(10) & "','" & text1(11) & "','" & text1(12) & "','" & text1(13) & "','" & text1(14) & "','" & text1(15) & "','" & text1(16) & "','" & text1(17) & "','" & text1(18) & "')", BD, adOpenStatic, adLockOptimistic
         MsgBox "Paciente Agregado", vbInformation, "Éxito"
     
     Set RecSQL = Nothing
     Call Combo
     Call LimpiarPacientes
     Call BloqueoPacientes
     Combo1.SetFocus
End Sub

Ahi es cuando llamo a la instruccion pero sigue se hacermelo.

Saludos