Sub CreateView()
Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
cmd.ActiveConnection = CurrentProject.Connection
cmd.CommandText = "CREATE VIEW vwClients " & _
"AS SELECT ClientID, CompanyName " & _
"FROM Clients"
cmd.Execute
End Sub