I am not getting any error messages and its not creating the db/tables for some reason. any chance you can look at my code and see if you can notice anything? I am not noticing any problems. Would like to ask for suggestions for this app too.
VB Code:
  1. Option Explicit

  2.  
  3. Public strCreate As String

  4. Public conn As ADODB.Connection

  5.  
  6. Private Sub cmdDB_Click()

  7.     Set conn = New ADODB.Connection

  8.     

  9.     conn.CursorLocation = adUseClient

  10.     conn.ConnectionString = "DRIVER={MYSQL ODBC 3.51 Driver};" _

  11.     & "SERVER=" & txtIP.Text _

  12.     & "UID=" & txtUsername.Text _

  13.     & "PWD=" & txtPassword.Text _

  14.     & "OPTIONS=" & 1 + 2 + 8 + 32 + 2048 + 16384

  15.         

  16.     CreateDB

  17.     cmdDB.Enabled = False

  18.     txtIP.Text = ""

  19.     txtUsername.Text = ""

  20.     txtPassword.Text = ""

  21.     txtIP.SetFocus

  22. End Sub

  23.  
  24. Private Sub Form_Load()

  25.     cmdDB.Enabled = False

  26. End Sub

  27.  
  28. Private Sub Form_Unload(Cancel As Integer)

  29.     Unload Me

  30. End Sub

  31.  
  32. Public Function CreateDB()

  33.     strCreate = "CREATE DATABASE test1"

  34.     CreateTable

  35. End Function

  36.  
  37. Public Function CreateTable()

  38.     strCreate = "CREATE TABLE ClientInformation( "

  39.     strCreate = strCreate & "id int(11) NOT NULL "

  40.     strCreate = strCreate & "CompanyName TEXT NOT NULL, "

  41.     strCreate = strCreate & "AddressLine1 TEXT NOT NULL, "

  42.     strCreate = strCreate & "AddressLine2 TEXT NOT NULL, "

  43.     strCreate = strCreate & "City TEXT NOT NULL, "

  44.     strCreate = strCreate & "State TEXT NOT NULL, "

  45.     strCreate = strCreate & "Zip TEXT NOT NULL, "

  46.     strCreate = strCreate & "PhoneNumber TEXT NOT NULL, "

  47.     strCreate = strCreate & "FaxNumber TEXT NOT NULL, "

  48.     strCreate = strCreate & "Email TEXT NOT NULL, "

  49.     strCreate = strCreate & "Website TEXT NOT NULL "

  50.     strCreate = strCreate & ") TYPE = MyISAM;"

  51.     

  52.     strCreate = "CREATE TABLE Inventory( "

  53.     strCreate = strCreate & "ItemNumber TEXT NOT NULL, "

  54.     strCreate = strCreate & "ProductName TEXT NOT NULL, "

  55.     strCreate = strCreate & "ProductQuantity TEXT NOT NULL, "

  56.     strCreate = strCreate & "ProductPrice TEXT NOT NULL "

  57.     strCreate = strCreate & ") TYPE = MyISAM;"

  58.     

  59.     strCreate = "CREATE TABLE Logo( "

  60.     strCreate = strCreate & "CompanyLogo TEXT NOT NULL) TYPE = MyISAM;"

  61.     

  62.     strCreate = "CREATE TABLE OperatorPicture( "

  63.     strCreate = strCreate & "id int(11) NOT NULL, "

  64.     strCreate = strCreate & "Username TEXT NOT NULL, "

  65.     strCreate = strCreate & "Picture TEXT NOT NULL "

  66.     strCreate = strCreate & ") TYPE = MyISAM;"

  67.     

  68.     strCreate = "CREATE TABLE Orders( "

  69.     strCreate = strCreate & "CompanyName TEXT NOT NULL "

  70.     strCreate = strCreate & "OrderRefNum TEXT NOT NULL, "

  71.     strCreate = strCreate & "DateOfOrder DATE NOT NULL, "

  72.     strCreate = strCreate & "DateOrderCompleted DATE NOT NULL, "

  73.     strCreate = strCreate & "DateOrderShipped DATE NOT NULL, "

  74.     strCreate = strCreate & "ProductName TEXT NOT NULL, "

  75.     strCreate = strCreate & "ProductDescription TEXT NOT NULL, "

  76.     strCreate = strCreate & "ProductQuantity TEXT NOT NULL, "

  77.     strCreate = strCreate & "ProductPrice TEXT NOT NULL, "

  78.     strCreate = strCreate & "PriceSubTotal TEXT NOT NULL, "

  79.     strCreate = strCreate & "PriceTotal TEXT NOT NULL "

  80.     strCreate = strCreate & ") TYPE = MyISAM;"

  81.     

  82.     strCreate = "CREATE TABLE SalesTax( "

  83.     strCreate = strCreate & "SalesTax TEXT NOT NULL "

  84.     strCreate = strCreate & ") TYPE = MyISAM;"

  85.     

  86.     strCreate = "CREATE TABLE StockCheck( "

  87.     strCreate = strCreate & "InventoryMinimumCount TEXT NOT NULL "

  88.     strCreate = strCreate & ") TYPE = MyISAM;"

  89.     

  90.     strCreate = "INSERT INTO StockCheck(InventoryMinimumCount) "

  91.     strCreate = strCreate & "VALUES ('1')"

  92.     

  93.     strCreate = "CREATE TABLE Users( "

  94.     strCreate = strCreate & "id int(11) NOT NULL, "

  95.     strCreate = strCreate & "Username TEXT NOT NULL, "

  96.     strCreate = strCreate & "Password TEXT NOT NULL, "

  97.     strCreate = strCreate & "Operator TEXT NOT NULL, "

  98.     strCreate = strCreate & "OperatorID TEXT NOT NULL, "

  99.     strCreate = strCreate & "FullAccess TEXT NOT NULL "

  100.     strCreate = strCreate & ") TYPE = MyISAM;"

  101.     

  102.     strCreate = "INSERT INTO Users(id,Username,Password,Operator,OperatorID,FullAccess) "

  103.     strCreate = strCreate & "VALUES ('','admin','password','Operator Name','OperatorID','Yes')"

  104.     

  105.     strCreate = "CREATE TABLE YourCompanyInformation( "

  106.     strCreate = strCreate & "id int(11) NOT NULL, "

  107.     strCreate = strCreate & "CompanyName TEXT NOT NULL, "

  108.     strCreate = strCreate & "AddressLine1 TEXT NOT NULL, "

  109.     strCreate = strCreate & "AddressLine2 TEXT NOT NULL, "

  110.     strCreate = strCreate & "City TEXT NOT NULL, "

  111.     strCreate = strCreate & "State TEXT NOT NULL, "

  112.     strCreate = strCreate & "Zip TEXT NOT NULL, "

  113.     strCreate = strCreate & "PhoneNumber TEXT NOT NULL, "

  114.     strCreate = strCreate & "FaxNumber TEXT NOT NULL, "

  115.     strCreate = strCreate & "Email TEXT NOT NULL, "

  116.     strCreate = strCreate & "Website TEXT NOT NULL "

  117.     strCreate = strCreate & ") TYPE = MyISAM;"

  118. End Function

  119.  
  120. Private Sub txtIP_Change()

  121.     If txtIP.Text <> "" And txtPassword.Text <> "" And txtUsername.Text <> "" Then

  122.         cmdDB.Enabled = True

  123.     Else

  124.         cmdDB.Enabled = False

  125.     End If

  126. End Sub

  127.  
  128. Private Sub txtIP_GotFocus()

  129.     txtIP.SelStart = 0

  130.     txtIP.SelLength = Len(txtIP.Text)

  131. End Sub

  132.  
  133. Private Sub txtPassword_Change()

  134.     If txtIP.Text <> "" And txtPassword.Text <> "" And txtUsername.Text <> "" Then

  135.         cmdDB.Enabled = True

  136.     Else

  137.         cmdDB.Enabled = False

  138.     End If

  139. End Sub

  140.  
  141. Private Sub txtPassword_GotFocus()

  142.     txtPassword.SelStart = 0

  143.     txtPassword.SelLength = Len(txtPassword.Text)

  144. End Sub

  145.  
  146. Private Sub txtUsername_Change()

  147.     If txtIP.Text <> "" And txtPassword.Text <> "" And txtUsername.Text <> "" Then

  148.         cmdDB.Enabled = True

  149.     Else

  150.         cmdDB.Enabled = False

  151.     End If

  152. End Sub

  153.  
  154. Private Sub txtUsername_GotFocus()

  155.     txtUsername.SelStart = 0

  156.     txtUsername.SelLength = Len(txtUsername.Text)

  157. End Sub