Código:
Private Sub cmdbuscar_Click()
If Combo26.Text = "" Then
Exit Sub
Else
Call VisualizarPacientes
recbd.Find ("nombres='" & Combo26.List(Combo26.ListIndex) & "'")
Text9 = recbd!id
frmConsulta.Show
End If
End Sub
no se si este realizando bien la consulta o como puedo solo sacar un dato del combo
de antemano gracias por las respuestas,
saludos

