Visual Basic - Agregar registros a una base de datos access

Buenas tardes, siento mucho molestarlos pero necesito ayuda.Soy muy nueva en esta cuestión de la programación y mi problema es el siguiente:

tengo dos aplicaciones en visual basic, en las dos ocupo agregar registros a una base de datos y en una de ellas lo hace bien pero en la otra (que es la que me importa) me marca un error utilizando el mismo código que es el siguiente:

Dim db As Database
Dim rs As Recordset
Const sPathBase As String = "C:Documents and SettingsOwnerDesktopCLMFCLMF.mdb"

Private Function mostrardatos()
Set db = OpenDatabase(sPathBase)
(ESTA ES LA LÍNEA QUE MARCA EL ERROR ) Set rs = db.OpenRecordset("SELECT * FROM Anticipos ORDER BY Nombre", dbOpenDynaset)
End Function

Private Sub Cmd_Agregar_Click()

With mostrardatos
Do While Not .EOF
If Txt_Nombre = .Fields("Nombre") Then
MsgBox "Introduzca el nombre del operador"
Txt_Nombre.Text = ""
Txt_Nombre.SetFocus
Exit Sub
End If
.MoveNext
Loop
.AddNew
.Fields("Nombre") = Txt_Nombre
.Fields("Cheque") = Txt_Cheque
.Fields("Importe") = Txt_Importe
.Fields("Fecha") = Meb_Fecha
.Update
Call Cmd_Limpiar_Click
MsgBox "Anticipo Agregado"

End With
End Sub

Cuando presiono el botón agregar aparece el error 13 los tipos no coinciden. No sé si es el código correcto, espero haberme explicado bien y agradezco su ayuda de antemano. Que tengan bonito día.

O estas intentando introducir texto en un campo numerico, o una fecha incorrecta o un blanco en un campo de fecha.
Revisa la definicion de campos en la base de datos.

No!, no es por esa razón, pues no ves que el error salta al definir el recordset y no al actualizar?

El problemas es que en la aplicación que no le funciona, tiene referencias a ADO y a DAO y el recordset no sabe cual cojer.

Para Betty (espero que no seas la fea) :

Simplemente declara el recordset así:
Dim rs as DAO.Recordset

y se acabó el problema.

Muchísimas gracias a los dos por responder. Lolo declaré el recordset como me dijiste e hice otros pequeños cambios y listo solucioné mi problema (Y no seré la más bonita pero tampoco la fea). Mil gracias de nuevo a ambos.

Ah, me parece que en la parte donde asignas el valor a los campos te falta.
ejemplo de Txt_Nombre.Text para que no haya error de tipos.

Espero te ayude en algo.