Problemas con dbgrid y access

[Sory23]

hola tengo un problema que llevo horas intentando solucionar espero que aqui me podais ayudar porque ya he escrito en dos foros y en ninguno he tenido respuesta,pues bien mi problema es el siguiente:



Tengo una base de datos Access 2000 con contraseña y mi aplicacion añade en ella,borra y hace consultas sobre ella introduciendo una fecha te muestra en un dbgrid todos los registros de esa fecha.
Pues bien he logrado borrar mediante el siguiente codigo:


Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
With cnn
.ConnectionString = _
"Provider=" & prov & ";" & _
"Data Source=" & ruta_completa & ";" & _
"Jet OLEDB:Database Password=" & contraseña & ";"
.Open
End With

cnn.Execute ("delete from Control where N_tienda='" & num & "' and Nombre='" & nom & "'and Fecha=#" & Format(fec, "m/d/yyyy") & "# and Hora=#" & Format(hora, "h:m:s") & "#")




Tambien he logrado añadir mediante el siguiente codigo:


With cnn
.ConnectionString = _
"Provider=" & prov & ";" & _
"Data Source=" & ruta_completa & ";" & _
"Jet OLEDB:Database Password=" & contraseña & ";"
.Open
End With

rst.Open sql, cnn, adOpenDynamic, adLockOptimistic



For i = 0 To 3
If Me.Check1(i).Value = 1 Then
rst.AddNew
rst.Fields("N_tienda") = txttienda.Text
rst.Fields("Fecha") = txtfecha.Text
rst.Fields("Hora") = txthora.Text
rst.Fields("Nombre") = Check1(i).Caption
rst.Fields("Tipo_servicio") = i + 1
rst.Fields("Observaciones") = txtobservaciones.Text
rst.Fields("Propuesta") = txtpropuesta.Text
rst.Update
End If
Next

rst.Close





Y AQUI VIENE MI PROBLEMA:
NO SOY QUIEN HA CONSEGUIR QUE MI DBGRID MUESTRE LOS REGISTROS DE UNA FECH DETERMINADA,CUANDO LO HAGO CON UNA BASE DE DATOS ACCESS SIN CONTRASEÑA NO TENGO PROBLEMA PERO AHORA AL TENER CONTRASEÑA NOSE Q TENGO Q HACER HE PROBADO UN MONTON DE COSAS Y NADA ESPERO ME PUEDAS AYUDAR,MUCHAS GRACIAS PR ANTICIPADO