Building Tables in Sql Server 2008 With Vb 6.0

Hi,
I have been trying to find some information on building tables in SQL server 2008 using Visual Basic 6.0. I would like to know if there is some sample code out there that Google can't pick up. I have several tables to build when I set up my program at new sites, and it would be so much easier if I could program vb 6 to set the tables up as an install.

This is a situation where you have to split your installation process , first you need to create a database which can be done using osql command line application, at this point you may proceed to create the tables or create stored procedures that at one point will create the tables and if it is necessary populate them.

After has conclude of create the sp you may proceed and continue your installation process at the end of your process you run your ap's .

To create tables programmatically, you use the portion of the SQL language that is described as the Data Definition Language (DDL). That includes statements such as CREATE TABLE. You can find descriptions of all the SQL statements, both DDL and Data Manipulation Language (DML) such as SELECT or UPDATE, in the help files for Microsoft SQL Server, which we refer to as Books On Line or BOL.

From VB6, you can use the same statements to execute DDL that you use to execute DML statements that don't return recordsets (such as DELETE or UPDATE).

That's what I've been trying to find some information on; it seems like there isn't too much info out there. This is what I have so far, but
Dim rsPriorities As ADODB.Recordset
Set rsPriorities = New ADODB.Recordset
With rsPriorities
.ActiveConnection = "Provider=SQLOLEDB.1;Password=password;Persist Security _ Info=True;User ID=sa;Initial Catalog=testing;Data Source=server\sqlexpress"
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockPessimistic
.Source = "SELECT * FROM testing"
.Open

.AddNew
.Fields("Priority_ID").Value = 1
.Fields("Description").Value = "High"
.Update
End With
won't get by the ".Open" I get "invalid object name testing" testing is the name of the database that was created