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
