Creating/Deleting Tables with ADO/VB6

strQuery = "SELECT * FROM PC" 
 
With adoFAST
	 .ConnectionString = strCnxn
	 .CursorLocation = adUseClient
	 .CursorType = adOpenStatic
	 .CommandType = adCmdText
	 .RecordSource = strQuery
	 .Refresh
End With
Set rstPriorities = adoFAST.Recordset

  cnDatabaseConnection.Execute sSql

Option Explicit
 
Private Sub InsertInitialData()
  Dim rsPriorities As ADODB.Recordset
  
  Set rsPriorities = New ADODB.Recordset
  With rsPriorities
	.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
						"Data Source='C:\Temp\TestDB.mdb';"
	.CursorLocation = adUseClient
	.CursorType = adOpenKeyset
	.LockType = adLockPessimistic
	.Source = "SELECT * FROM Priorities"
	.Open
	
	.AddNew
	.Fields("Priority_ID").Value = 1
	.Fields("Description").Value = "High"
	.Update
  End With
  
End Sub
 
Private Function CreateTable() As Boolean
  Dim catDatabase As ADOX.Catalog
  Dim oTable As ADOX.Table
  Dim bCreateTable As Boolean
' -------------------------------
  On Error GoTo PROC_ERR
  
  '
  ' Pre conditions. Assume we do not create a table.
  ' 
  bCreateTable = False
  
  Set catDatabase = New ADOX.Catalog
  With catDatabase
	.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
						"Data Source='C:\Temp\TestDB.mdb';"
	
	Set oTable = .Tables("Priorities")
  End With
  
PROC_EXIT:
  '
  ' Clean up or do exit conditions and die gracefully.
  '
  If (bCreateTable) Then
	Set oTable = New ADOX.Table
	With oTable
	  .Name = "Priorities"
	  Call .Columns.Append("Priority_ID", adInteger)
	  Call .Columns.Append("Description", adVarWChar, 20)
	End With
	
	Call catDatabase.Tables.Append(oTable)
  End If
  
  If (Not catDatabase Is Nothing) Then
	Set catDatabase = Nothing
  End If
  '
  ' Let the caller know if we created a table.
  '
  CreateTable = bCreateTable
PROC_ERR:
  Select Case Err.Number
  Case 3265
	'
	' The table does not exist, enable the creation flag and
	' head for the exit.
	'
	bCreateTable = True
	Err.Clear
	Resume PROC_EXIT
  Case Is <> 0
	MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure cmdCreateTable_Click of Form frmMain"
	bCreateTable = False
	Err.Clear
	Resume PROC_EXIT
  End Select
End Function
 
Private Sub cmdCreateTable_Click()
  Dim bTableCreated As Boolean
  
  bTableCreated = CreateTable
  If (bTableCreated) Then
	Call InsertInitialData
  End If
End Sub