ник: osmor
Dim objAdox As ADOX.Catalog
Dim qdf As ADODB.Command
Set objAdox = New ADOX.Catalog
objAdox.ActiveConnection = "ну здесь коннект к БД"
Set qdf = New ADODB.Command
qdf.CommandText = "select * from t1"
Call objAdox.Views.Append("МОйЗапрос", qdf)