SoloCodigo

ME DA ERROR
Dim wks As Workspace
Dim db As Database
Dim vDatos As Variant
Dim sUser As String, sPassword As String

    sUser = DBEngine.Workspaces(0).UserName
    sPassword = ""
    Set wks = DBEngine.CreateWorkspace("wks", sUser, sPassword)
   
    Set db = wks.OpenDatabase(App.Path & "db13.mdb")
    Dim sSQL$
    Dim qrydatos As Recordset
    sSQL = "SELECT TblProyecto.PRODENOMINACION FROM TblProyecto ORDER BY TblProyecto.PRODENOMINACION; "
    Set qrydatos = db.OpenRecordset(sSQL, dbOpenDynaset)
    If qrydatos.BOF And qrydatos.EOF Then
        vDatos = vbNull
    Else
        qrydatos.MoveLast
        qrydatos.MoveFirst
       
       
        'Me.combo1.DataSource = sSQL
        'TDbGrid1.Columns(1).ValueItems.Presentation = 4
       
        Set combo1.DataSource = sSQL
        Me.combo1.DataField = qrydatos("PRODENOMINACION")

    End If