Here's something strange!!! I'm answering my own question...er...for anyone else who might be interested.Sub ADOCreateQuery()

Dim cat As New ADOX.Catalog
Dim cmd As New ADODB.Command
'Open the catalog cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\nwind.mdb;"
'Create the query
cmd.CommandText = "Select * FROM Categories"
cat.Views.Append "AllCategories", cmd
Set cat = Nothing
End Sub

Found an excellent guied to ADO on Microsoft's website, very detailed and simple explaining the syntax clearly. If anyone wants a copy of this 11 page HTML file, you can email me at [email protected].
Cheers