Dim cmdNew As ADODB.Command
Set cmdNew = New ADODB.Command
Set cmdNew.ActiveConnection = CurrentProject.Connection
cmdNew.CommandText = strSQL
cmdNew.Execute
Set cmdNew = Nothing
strSQL might be something like this = "CREATE VIEW titles_view AS SELECT title, type, price, pubdate FROM titles"
Hope this helps.
-Chris
|