Visual Basic - Error del Like

Hola a todos, por favor que me falta en el Like que me da un error

Private Sub cmdBusca_Click()


rs.Open "Select * From ProAce_Departamentos Where ProAce_CodDep = '" & txtCodDep & "' or ProAce_DesDep Like ' " & txtDesDep & "' ", Cnn

While Not rs.EOF
Set List = lvwConsulta.ListItems.Add
List.Text = rs!ProAce_CodDep
List.SubItems(1) = rs!ProAce_DesDep
rs.MoveNext
Wend
End Sub

Private Sub cmdSalir_Click()
If MsgBox("¿Está seguro que dese salir?", vbYesNo + vbQuestion, "Aviso") = vbYes Then
Unload Me
End If
End Sub

Private Sub Form_Load()
Cnn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;" & _
"User ID=sa;Initial Catalog=ProAce;Data Source=Pentium"
lblFecha1.Caption = Format(Now, "dd/mm/yyyy")
End Sub

Si en txtDesDep escribes los comodines, ten en cuenta que para ADO, el comodín que equivale al * es %, y el que equivale a ? es _. En DAO siguen siendo los de siempre, es decir, * y ?.

Un saludo