Visual Basic - conexion odbc,error no coinciden los tipos

estoy intentando hacer un programa para que se me conecte a una base de datos mediante odbc y me sale el error de no coinciden los tipos en esta linea:

Set MiConexion = MiSesion.OpenConnection("fotos", dbDriverNoPrompt, True, "ODBC;DSN=fotos")

Alquien sabria decirme porque? muchisimas gracias, os escribo todo el codigo por si lo necesitais:

Option Explicit
Dim MiSesion As Workspace
Dim MiConexion As Connection
Dim RsODBC As Recordset
Dim SQL As String

Private Sub BCrearConexion_Click()
Dim NumRegistros As Integer

SQL = "SELECT Tema from fotos"
'Se le dice al DBEngine que debe trabajar en el espacio de trabajo ODBCDirect
DBEngine.DefaultType = dbUseODBC
Set MiSesion = Workspaces(0)
'Se crea el objeto conexión
Set MiConexion = MiSesion.OpenConnection("fotos", dbDriverNoPrompt, True, "ODBC;DSN=fotos")

'true porque es acceso de solo lectura

'Se crea el objeto Recordset
Set RsODBC = MiConexion.OpenRecordset("SQL", dbOpenDynamic, dbRunAsync)

'Es necesario recorrer el recordset para conocer cuantos registros tiene (Es Dynaset)
RsODBC.MoveLast
RsODBC.MoveFirst
If RsODBC.AbsolutePosition <> -1 Then
NumRegistros = RsODBC.RecordCount
NumRegistros = RsODBC.AbsolutePosition + 1
EscribirEnCombo
Else
MsgBox "La base de datos no tiene ningún registro"
End If