Visual Basic - ERROR: No coinciden los tipos de datos??? =s

Hola colega, en esta oporunidad estoy tratando de conectar mi base de datos la cual esta echa en access97 pero no puedo realizar dicho conección porque me muestra el siguiente error:'-214721900(8004e14)' en tiempo de ejecución: No coinciden los tipos de datos en la expresión de criterios y de verdad he intentado varias maneras y me sigue mostrando el mismo error. Aqui tengo el código para ver si me puedes orientar amigo:

Sub Coneccion()
Set Cnn = New Connection
Set Rcs = New Recordset

Cnn.Open ("PROVIDER=MICROSOFT.JET.OLEDB.3.51; DATA SOURCE=" & App.Path & "\VZLA3.MDB")

Rcs.Open "select * from vnz3 where cedula = '" & cedula & "'", Cnn <<Aqui es donde me señala el error>>

MsgBox " La Coneccion fue exitosa ", vbInformation, "Coneccion"

Rcs.Close

De verdad que agradezco tu ayuda, la base de datos contiene 3 millones de registros y la estoy cambiando de DAO a ADO ya que necesito manejar en mi sistema los data reports, en DAO utilizo el método seek pero voy a utilizar otro método en ADO para poder ejecutar eficazmente mi aplicacón. Agradezco de tu ayuda amigo para ver en donde es que estoy fallando.. Gracias

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim consulta As String
dim cedula as string
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\VZLA3.MDB;"
cn.Open , "", ""
Set rs = New ADODB.Recordset
consulta = "SELECT *FROM vnz3 Where Cedula '" & cedula & '"
rs.Open consulta, cn, adOpenStatic, adLockReadOnly, adCmdText
If rs.Supports(adAddNew) Then ' ......
Else
MsgBox "El recordset no permite guardar los cambios"
End If

o en tu linea
Rcs.Open "select * from vnz3 where cedula = '" & cedula & "'",
debe ser
Rcs.Open "select * from vnz3 where cedula = '" & cedula & '",
tu problem a es de sintaxis conmunmente llamado comillas
comilla doble+comilla simple+&cedula&+ comilla simple+comillaa doble

Lo mismo pensé ya que me ha pasado mas de alguna vez
Hay que verificar el tipo de dato que es cedula, Si es String o numerico
Fijate en las comillas como dice Raul
Rcs.Open \"select * from vnz3 where cedula = \'\" & cedula & \"\'\"
Traduccion
\' = Comillas simples
\" = Comillas Dobles

Rcs.Open \"select * from vnz3 where cedula = COMILLAS SIMPLES + COMILLAS DOBLES & cedula & COMILLAS DOBLES+COMILLAS SIMPLES+COMILLAS DOBLES

Eso si fuese cedula un campo tipo string
Si fuese Numerico hay que sacarle las comillas simples

Yo lo haría así:

dim comando as string

comando = "select * from vnz3 where cedula = ' " & cedula & " ' "
Rcs.Open (comando)

Saludos!