Ayuda ADO

[extrem_bcn]

Yo lo haria de esta manera


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=terms.accdb;Persist Security Info=False"
cox_nlx.Open

Private Sub Command1_Click()
query_cx = "SELECT def FROM terminos WHERE term= ' " & Text1 & " ' "
cox_rds = query_cx, cox_nlx

text2.text = cox_rds("def")
End Sub

has de tener en cuenta que has de tener un textbox (llamado text1) donde pondrás la palabra a buscar y otro textbox (llamado text2) donde te mostrará la definición.

espero haberte ayudado.