type mismatch run-time error '13'

[okdoris]

hola,
en un proyecto anterior habia utilizado este codigo y habia funcionado pero ahora no funciona hice algo mal? seguro que si, podrian ayudarme
este es el codigo el error selecciona la linea

Set conEdits = wrkODBC.OpenConnection("proyecto", , , _
"ODBC;DATABASE=trabajos;UID=root;PWD=;DSN=proyecto ")
Set qdfTemp = conEdits.CreateQueryDef("")

Código:

Private Sub Command1_Click(Index As Integer)
'eliminar
    Dim wrkODBC As Workspace
    Dim conEdits As Connection
    Dim qdfTemp As QueryDef
    Dim rstTemp As Recordset
    Dim Contador As Integer
    Dim Mensaje2, Respuesta, Título As String
     Contador = 0
    If Text1.Text = "" Then
    Mensaje2 = "Debe digitar un CODIGO DE USUARIO"
    Respuesta = MsgBox(Mensaje2, vbOKOnly, Título)
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
    Text1.SetFocus
    Exit Sub
End If
           ' Crea un objeto Workspace ODBCDirect y abre un objeto Connection.
      Set wrkODBC = CreateWorkspace("", "admin", "", dbUseODBC)
       Set conEdits = wrkODBC.OpenConnection("proyecto", , , _
        "ODBC;DATABASE=trabajos;UID=root;PWD=;DSN=proyecto")
       Set qdfTemp = conEdits.CreateQueryDef("")
     'consulta
    With qdfTemp
        .Prepare = dbQUnprepare
        .SQL = "SELECT * FROM USUARIOS WHERE COD_USUARIO = ' " & Text1.Text & " ' "
        .Execute
    End With

    ' Abre el conjunto de registros que contiene los registros modificados.
    Set rstTemp = conEdits.OpenRecordset("")
    ' Enumera el conjunto de registros.
    With rstTemp
        Do While Not .EOF
            Contador = Contador + 1
            .MoveNext
        Loop
    .Close
    End With
    If Contador = 0 Then
      MsgBox ("CODIGO NO ENCONTRADO")
    Else
      With qdfTemp
        .Prepare = dbQUnprepare
        .SQL = "DELETE FROM USUARIOS WHERE COD_USUARIO = '" & Text1.Text & "'"
        .Execute
        .Close
      End With
       MsgBox ("EL USUARIO FUE ELIMINADO DE LA BASE DE DATOS")
  End If
    conEdits.Close
    wrkODBC.Close
End Sub

gracias!!!