mostrar datos por mes y año

[leliCabello]

nuenas, ps estoy tratando de mostrar datos registrados de visitas por mes y año, es decir, cuando elijo el año y el mes de ambos combos, deberian botar regis de ese mes y año en el datagrid______ estuve haciendolo asi:::>

Código [Seleccionar] Expandir

Private Sub cboAnio_Change()
If cboAnio.Text <> "" Then
        adoVisitas.RecordSource = "select * from TEMPORAL_VISITAS where (YEAR(TEMPORAL_VISITAS.fecha)=" & cboAnio.Text & ") AND (MONTH(TEMPORAL_VISITAS.fecha) = " & mes & ") order by cod_visitas"
        adoVisitas.Refresh
    End If
End Sub
En mi mi base de datos tiene un solo registro de junio elijo enero, y no funciona... ayudenme pliss

[leliCabello]

ayuden p ...Por favor

[Shell Root]

Pero funciona correctamente así como lo tienes.

Código (sql) [Seleccionar] Expandir

mysql> SELECT * FROM PoC;
+------+------------+
| id   | fecha      |
+------+------------+
|    1 | 1991-02-18 |
|    2 | 1993-02-18 |
|    3 | 1993-03-18 |
|    4 | 1991-04-18 |
+------+------------+
4 rows in set (0.00 sec)


mysql> SELECT * FROM PoC WHERE ((YEAR(fecha) ='1991') AND (MONTH(fecha) ='02'));
+------+------------+
| id   | fecha      |
+------+------------+
|    1 | 1991-02-18 |
+------+------------+
1 row in set (0.00 sec)

[leliCabello]

http://img811.imageshack.us/f/form.gif/
==> este es mi form, cosa q si elijo el mes y año debe salir los datos con los registros correspondientes, y se supone que al elegir enero 2011 deberia salir en blanco, pero no funciona------------ ayudenme por favor

[leliCabello]

como deberia hacer para guardar, con lo q hize no me funciona... Como deberia hacer, ayudenme plisssS

Código [Seleccionar] Expandir


If cboCliente.Text <> "" And DTPicker1.Value <> "" _
    And txtResultado.Text <> "" Then
    ModoEditar False
    cod_cliente = cboCliente.Text
    adoCliente.Recordset.MoveFirst
    adoCliente.Recordset.Find "nom_cliente='" & cod_cliente & "'"
    cod_cliente = adoCliente.Recordset(0).Value
    '
    rsguardar!fecha = DTPicker1.Value
    rsguardar!resultadodevisita = txtResultado.Text
   
    rsguardar.Update
    rsguardar.Close
    Set rsguardar = Nothing
    adoVisitas.Refresh
    MsgBox "Los datos se guardaron con exito"
    conectar
    Else
        MsgBox "Todo los datos son obligatorios no debe guardar cuando este vacio"
        txtResultado.SetFocus
    End If