Estimados Colegas,
nuevamente recurro a su conocimiento para que puedan darme una mano con un proceso. Sigo trabajando en el proyecto del programa de trazabilidad animal para un criadero de chinchillas.
Ahora el problema me surge a la hora de tratar de mostrar los resultados de una consulta en un datagrid.
Aqui va el codigo,

Código:

If chkfecnac.Value = 1 Then
        txtfecnacdes.Text = Format(txtfecnacdes.Text, "dd/mm/yyyy")
        txtfecnachas.Text = Format(txtfecnachas.Text, "dd/mm/yyyy")
    End If
    Dim con As ADODB.Connection
    Set con = New ADODB.Connection
    con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = Chinchisoft.mdb"
    con.Open
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    rs.ActiveConnection = con
    rs.LockType = adLockOptimistic
    rs.CursorType = adOpenStatic
    frmbuscar.Height = 4860
    If chknombre.Value = 1 Then
        rs.Open "SELECT * FROM Chinchilla WHERE nombre LIKE '%" & Trim(txtnombre.Text) & "%'"
        Set dgrbuscados.DataSource = rs
        dgrbuscados.Visible = True
    Else
        rs.Open "SELECT * FROM Chinchilla WHERE fecha_nacimiento > '%" & Trim(txtfecnacdes.Text) & "%' AND fecha_nacimiento < '%" & Trim(txtfecnachas.Text) & "%'"
        Set dgrbuscados.DataSource = rs
        dgrbuscados.Visible = True
    End If
End Sub

La idea de este formulario es buscar a los animales por su nombre o por un rango de su fecha de nacimiento y luego del datagrid seleccionar cual es el animal elegido y con él volver al formulario anterior para realizar una actualización de datos.

Buenas tardes Nexxus: No indicas cual es el problema, pero al revisar el código creo que lo tienes cuando haces la consulta por fechas: en algunos casos debes colocar # antes y después de las fechas y no %; en otros casos debes invertir el formato de las fechas mm/dd/aa o dd/mm/aa.

Espero haberte sido de ayuda