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