create tables in MS Access through VB6

[Derek]

Using VB6 and MS Access 2003. I would like to create a simple table in the database. I'm able to do this fine... but here's the catch. I want to create an AutoNumbering Index in my table as a Primary Key. How do I do
that? I can make it a Primary Key, but can't seem to set the datatype as autonumbering.

Second. How do I create a field that is a Lookup table query? Can this be accomplished via VB6?

My current DB interactions are ADO... but could use DAO if that is better...

I have had little to no luck in my searches on the Internet.

Thanks

[Gusgr8]

either run create table queries or else TableDefs.Add

if you're new to this then try it out from within an access module to see how it works, then you can add a reference to DAO in vb and copy in your code.

Also this: VB code for creating access

Private Sub Form_Load()
Const strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\n13437\My Documents\db1.mdb;Persist Security Info=False"

Dim cnn As New ADODB.connection
Dim cmd As New ADODB.Command

cnn.ConnectionString = strConnection
cnn.Open

cmd.ActiveConnection = cnn
cmd.CommandText = "create table tnn1 (a varchar(10), b number)"

cmd.Execute
cnn.Close

End Sub

[Expertz]

see this link

http://support.microsoft.com/kb/108147