The Error code 3251 ?

[TF]

Hello,
I try to list the Views in a ADP project, (the server side Sql server 2k or
MSDE 2k),
I obtain this error code 3251. When I list the SP every thnig is good.
My code is
--->>>>>>>>>>>Code start
Dim cat As New ADOX.Catalog
Dim cdView As New ADODB.Command

Set cat.ActiveConnection = CurrentProject.Connection
Set cdView.ActiveConnection = CurrentProject.Connection
' Create new select Query
cdView.CommandText = Req
cat.Views.Append "V_test", cdView
cat.Views.Refresh
Set cat = Nothing
Set cdView = Nothing
<<<<<<<--- code end