Visual Basic - NO COINCIDEN LOS TIPOS???

Hola, saludos esoty aprendiendo el VB en lo que es manejo de datos, cunado declaraba en forma normal
Public Registros_Buscados As .Recordset
Public BaseDatos As Database
Set BaseDatos = OpenDatabase(PathBD & NombreBD)
consultaSql = select * from \" & ConsultaTabla & \" Where NumeroMes =\" & MMes
Set Registros_Buscados = BaseDatos.OpenRecordset(ConsultaSql)
ningun problema. trate de empesar a manejar el ADO , osea
Public Coneccion As New ADODB.Connection
Public Registros_Buscados As New ADODB.Recordset
Public BaseDatos As Database
Coneccion.ConnectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source = \" & PathBD & NombreBD
Coneccion.Open
Set BaseDatos = OpenDatabase(PathBD & NombreBD)
y ago la misma consulta pero de esta forma
Set Registros_Buscados = BaseDatos.OpenRecordset(ConsultaSql, dbOpenSnapshot)
Me arroja el error 13 de no coinciden los TIPOS e leeido varios textos sobre manejo de ADO y no puedo captar lo que estoy HACIENDO en forma ERRONEA .
Gracias de antemano a quien me conteste y pueda ayudarme

Copia tu código en un formulario y luego copia este

¿Por qué pones las \ en la concatenación de cadenas?

Public Registros_Buscados As Recordset
Public BaseDatos As Database
Set BaseDatos = OpenDatabase(PathBD & NombreBD)
consultaSql = "select * from " & ConsultaTabla & " Where NumeroMes =" & MMes
Set Registros_Buscados = BaseDatos.OpenRecordset(consultaSql)
'ningun problema. trate de empesar a manejar el ADO , osea
Public Coneccion As New ADODB.Connection
Public Registros_Buscados As New ADODB.Recordset
Public BaseDatos As Database
Coneccion.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = " & PathBD & NombreBD
Coneccion.Open
Set BaseDatos = OpenDatabase(PathBD & NombreBD)
'y ago la misma consulta pero de esta forma
Set Registros_Buscados = BaseDatos.OpenRecordset(consultaSql, dbOpenSnapshot)