Sub CreateQuery()
Dim cat As New ADOX.Catalog
Dim cd As New ADODB.Command
Dim sSQL As String
cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\mydb.mdb;"
sSQL = "SELECT * FROM Newtable"
cd.CommandText = sSQL
cat.Views.Append "Newquery", cd
End Sub