Tengo un problema cuando hago una busqueda utilizando ADO, alguien pude darme un ejemplo de como puedo hacer una busqueda. Responde Morgan: ================ Sub ADOFindRecord() Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset ' Open the connection cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=.\NorthWind.mdb;" ' Open the recordset rst.Open "Customers", cnn, adOpenKeyset, adLockOptimistic ' Find the first customer whose country is USA rst.Find "Country='USA'" ' Print the customer id's of all customers in the USA Do Until rst.EOF Debug.Print rst.Fields("CustomerId").Value rst.Find "Country='USA'", 1 Loop ' Close the recordset rst.Close End Sub