RE:crear o no crear tablas
Si estás utilizando ADO, lo puedes hacer con ADOX:
Dim objCatalog As Catalog, objTable As Table
Set objCatalog = New Catalog
Set objCatalog.Connection = TuObjetoConnection
blnEncontrado=False
For Each objTable In objCatalog.Tables
If objTable.Name="MiTablaBuscada" Then
blnEncontrado = True
Exit For
End If
Next
If Not blnEncontrado Then
Set objTable = New Table
objTable.Name = "MiTablaBuscada"
objTable.Columns.Append "Columna1", adInteger
objTable.Columns.Append "Columna2", adInteger
objTable.Columns.Append "Columna3", adVarWChar, 50
objCatalog.Tables.Append objTable
End If