Dim dbConnection As ADODB.Connection

Set dbConnection = New ADODB.Connection
dbConnection.CursorLocation = adUseClient
dbConnection.Open [your connection string]
dbConnection.Execute [Create Table or Alter Table command]