Visual Basic - establecer las propiedades de un adodc desde codig

Ante todo mil gracias por la ayuda en la duda anterior. Ahora les cuento lo que me pasa, quiza alguien tenga codigo fuente para mostrarme un ejemplo de esto:
Necesito establecer las propiedades de un adodc desde codigo. Lo he hecho definiendo los valores para las siguientes propiedades:
-adodc1.ConnectionString
-adodc1.RecordSource
-adodc1.CursorLocation
-adodc1.Cursortype
-adodc1.LockType
y luego enlazo un datagrid al adodc1 para visualizar los registros.
Si defino las propiedades desde la vista diseno funciona todo barbaro, pero si defino las propiedades del adodc1 desde codigo no trae nada. Me esta faltando definir alguna otra propiedad para este control???? Muchas gracias....

mira este ejemplo me funciona y tanto el adoc como la grid estan sin nada en modo de diseño.

solo los puse en un formulario un boton una datagrid y un objeto adoc
y en el boton puse el codigo,

Private Sub Command1_Click()
' Crea un cadena de conexión.
Dim strCn As String
strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ejemplo\mibase.mdb;Persist Security Info=False"

Dim strSh As String
strSh = "SELECT * FROM empleados"

With Adodc1
.ConnectionString = strCn
.RecordSource = strSh
End With

Set DataGrid1.DataSource = Adodc1

End Sub

y al darle click me llena la grid.

espero te sirva.

Muchas gracias Julio nuevamente por tu ayuda. Pero ahora me funciona el codigo, sucede que me faltaba un adodc1.Refresh para que visualize los datos.
Pero igualmente aprovecho (si no te molesta) en hacerte una consulta de sql:

Una vez que logre qe funcione el adodc y enlaze el datagrid al adodc necesito actualizar los datos de modo tal que cuanto el usuario carga un textbox busque los registros que cumplan con este nuevo criterio, en lugar de visualizar todos.

El codigo es este:

Private Sub cmdOK_Click()
Me.Adodc1.RecordSource = "select razonSocial from TablaClientes WHERE (razonSocial LIKE" & textItem.text & '%')"
Me.Adodc1.Refresh
End Sub

pero no funciona... tienes ideas como hacerlo???
MCUHAS GRACIAS

podrias hacerlo con la propiedad filter.

esto me funciona lo probe.

Private Sub Command1_Click()
' Crea un cadena de conexión.
Adodc1.Recordset.Filter = "" 'sirve para limpiar el filtro si hay
If Me.Text1.Text <> "" Then
Adodc1.Recordset.Filter = "razonSocial like '%" & Me.Text1.Text & "%'"
End If
Adodc1.Recordset.Requery
End Sub

ERES UN GENIO.... ME SALVASTE LAS PAPAS. MUCHISIMAS GRACIAS...

Gracias me ha sido de ayuda si me puedes ayudar con algun programa en visual basic 6 para manipular una base de datos en mysql gracias

Hola, estaba leyendo las publicaciones que han hecho en este foro y me parecen muy interesantes y me ayudaron a hacer algunas cosas..sin embargo, aún tengo un inconveniente con el adodc para registrar datos, específicamente quiero guardar la Fecha del sistema en una base de datos en access en el campo Fecha de una tabla llamada 'Retiro' directamente sin necesidad de asignar datafield a alguna caja de texto o una etiqueta label.

En pocas palabras quiero registrar la fecha del sistema, almacenarla como un registro. Me dieron un código que no me sirvió, es el siguiente

adodc1.recorset.Addnew Fecha , Date
adodc1.recordset.update Fecha , Date

Fecha =Es un Campo en la tabla Retiro de la base de datos
Date= Fecha del sistema

ya hice ConnectionString del Adodc con la Base de Datos, solo me falta almacenar la Fecha, como ya dije, directamente desde el comando Date a la base de datos.. si me pueden ayudar se los agradecería mucho

debes poner el campo entre comillas dobles de esta manera:

adodc1.recorset.Addnew "Fecha" , Date

Adodc1.Refresh

concpetos sobre el tema

por que no encuentro todo lo relacionado con adodc , hagan algo por favor ayudenme