Ciao Gibra, grazie per le tue informazioni non so se per filtro intendevi gli attributi applicati al discorso Adox o altro.
Io per ora ho sistemato in questo modo, anche se non mi garba tanto.

[code]
SYSTblOut = Left(RStbl.Fields("TABLE_NAME").Value, 4)
[code]