Access - PROBLEMA SUBFORMULARIO TIEMPO EJECUCION

HOLA,. EL PROBLEMA ES QUE CUANDO INTENTO PASAR UNA CONSULTA RECIEN CREADA ME DA UN ERROR DICIENDOME QUE LA CONSULTA NO HA SIDO GENERANDA PERO FISICAMENTE SI QUE ESTA EL CODIGO QUE UTILIZO ES EL SIGUIENTE :

Private Sub Comando0_Click()
Dim bd As Database
Dim qdfTemp As QueryDef
Dim qdfNuevo As QueryDef

'CREACION DE UNA NUEVA PARA HACER EL FILTRO QUE CORRESPONDA
Set bd = OpenDatabase("C:\Documents and Settings\Administrador\Mis documentos\db1.mdb")
With bd
' Crea un QueryDef temporal.
Set qdfTemp = .CreateQueryDef("", "SELECT * FROM SOCIS")
' Abre el Recordset e imprime un informe.
'ObtenerrstTemp qdfTemp
' Crea un QueryDef permanente.
Set qdfNuevo = .CreateQueryDef("QueryDefNuevo", "SELECT * FROM SOCIS ")
qdfNuevo.Close
End With
bd.Close

'MOSTRAR RESULTADO DE LA CONSULTA EN EL SUBFORMULARIO

F1.SourceObject = "consulta.QueryDefNuevo"
End Sub

ME PODEIS GUIAR GRACIAS ME URGE BASTANTE

Hola
Dos matizaciones:
1º el origen de los datos de un formulario es: RecordSource
2º puede ser el nombre de una tabla, de una consulta o de una cadena SQL
Por lo que veo en lo que has puesto, no se cumple ninguna de las dos condiciones, o ¿te estoy entendiendo mal?
Un saludo
Victoria