Gracias por la ayuda ya lo solucione..Efectivamente use un texbox para cada dato para evitar complicaciones.
Saludos
Saludos
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Option Explicit
Dim cox_nlx As ADODB.Connection
Dim cox_rds As ADODB.Recordset
Dim query_cx As String
Private Sub Form_Load()
Set cox_nlx = New Connection
Set cox_rds = New Recordset
cox_nlx.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=dic-es.accdb;Persist Security Info=False"
cox_nlx.Open
End Sub
Private Sub Command1_Click()
query_cx = "SELECT def FROM terminos WHERE term= ' " & Text1 & " ' "
cox_rds.Open query_cx, cox_nlx
Text2 = cox_rds("def")
End Sub