Código:
Dim cox_nlx As ADODB.Connection
Dim cox_rds, As ADODB.Recordset
Dim query_cx As String
Private Sub Command1_Click()
query_cx = "SELECT def FROM terminos WHERE term= ' " & Text1 & " ' "
cox_rds = cox_nlx.Execute(query_cx)
End Sub
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=terms.accdb;Persist Security Info=False"
cox_nlx.Open
cox_rds.Open "terminos", cox_nlx, adOpenDynamic, adLockOptimistic
End Sub
Gracias por la respuesta extrem, pero ahora como le tendria q hacer para mostrar el resultado de la consulta en una textbox ¿se puede?
De antemano gracias