Visual Basic - Error de sintaxis(falta operador) en la expresion de consulta "IdEMP="

Function Grabar() As Boolean

On Local Error GoTo LineaError

    Dim RS As New ADODB.Recordset

    RS.CursorLocation = adUseClient

    If Trim(TxtIdCliente) = "" Then

        MsgBox "Ingrese CODIGO...!", vbExclamation

        TxtIdCliente.SetFocus

        Exit Function

    End If

    If Trim(TxtNombre) = "" Then

        MsgBox "Ingrese Nombre...!", vbExclamation

        TxtNombre.SetFocus

        Exit Function

    End If

    If Trim(TxtApellido) = "" Then

        MsgBox "Ingrese Apellido...!", vbExclamation

        TxtApellido.SetFocus

        Exit Function

    End If

    If Trim(TxtDNI) = "" Then

        MsgBox "Ingrese el Numero de Documento...!", vbExclamation

        TxtDNI.SetFocus

        Exit Function

    End If

    Cnx.BeginTrans

    If SW = True Then

        RS.Open "SELECT * From EMPLEADO", Cnx, adOpenDynamic, adLockOptimistic

        RS.AddNew

    Else

        RS.Open "SELECT * From EMPLEADO where IdEMP=" & TxtId, Cnx, adOpenDynamic, adLockOptimistic  -- ------- en esta linea es donde me detecta el error.

    End If

    RS!CODIGO = Trim$(TxtIdCliente)

    RS!APELLIDO = Trim$(TxtApellido)

    RS!NOMBRE = Trim$(TxtNombre)

    RS!DNI = Trim$(TxtDNI)

    RS!NACIMIENTO = Trim$(DTPNAC.Value)

    RS!DIRECCION = Trim$(TxtDireccion)

    RS!TELEFONO = Trim$(TxtTelefono)

    RS!PROFESION = Trim$(TxtIDP)

    RS!empresa = Trim$(TxtIDE)

    RS!IdUsuario = UsuId

    RS!FechaReg = Now

    RS.Update

    TxtId = RS!IdEMP

    Cnx.CommitTrans

    Set RS = Nothing

    Grabar = True

Exit Function

LineaError:

    Cnx.RollbackTrans

    MsgBox Err.Description, vbCritical

End Function

MsgBos "SELECT * From EMPLEADO where IdEMP=" & TxtId & VbCrLf & _

       "<" & Cnx & ">" & VbCrLf & _

       "<" & adOpenDynamic & ">" & VbCrLf & _

       "<" & adLockOptimistic & ">"