Dim conn As ADODB.Connection
Dim admin As ADODB.Recordset
Dim adm, constr As String
Private Sub Form_Load()
On Error GoTo a
connserver
Exit Sub
a:
CreateMyTable
End Sub
Private Sub connserver()
  Set conn = New ADODB.Connection
  conn.ConnectionString = "Driver={MySQL ODBC 3.51 Driver};SERVER=localhost;Database=advising;User=root;Password=12345; OPTION=3"
conn.Open
End Sub
Private Sub Image1_Click()
Checkuser
End Sub
Private Sub Checkuser()
    Dim admin As ADODB.Recordset
    Dim adm As String
    On Error GoTo a
    Set admin = New ADODB.Recordset
    admin.CursorLocation = adUseServer
    adm = "select * from adminrec where UserName = '" & Text1.Text & "' and Password = '" & Text2.Text & "'"
    admin.Open adm, conn
    MsgBox "Welcome " & admin!AdminName
    Unload Me
    adminfrm.Show
Exit Sub
a:
MsgBox "Unauthorized Personel!"
End Sub
Private Sub CreateMyTable()
z:
    On Error GoTo ServerErr
connserver
conn.Execute "CREATE TABLE CS11(Code char(10), Description char(200), Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE CS12(Code char(10), Description char(200), Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE CS21(Code char(10), Description char(200), Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE CS22(Code char(10), Description char(200), Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE ACT11(Code char(10), Description char(200), Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE ACT12(Code char(10), Description char(200), Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE ACT21(Code char(10), Description char(200), Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE ACT22(Code char(10), Description char(200), Units char(1))", , adExecuteNoRecords

conn.Execute "CREATE TABLE CS11a(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE CS11b(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE CS12a(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE CS12b(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE CS21a(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE CS21b(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE CS22a(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE CS22b(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords

conn.Execute "CREATE TABLE ACT11a(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE ACT11b(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE ACT12a(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE ACT12b(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE ACT21a(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE ACT21b(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE ACT22a(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
conn.Execute "CREATE TABLE ACT22b(Code char(10), Description char(200), Time char(15) ,Days char(10) ,Room char(10) ,Units char(1))", , adExecuteNoRecords
End
 Exit Sub
ServerErr:
    MsgBox "Can't connect to MySQL server or create new database please call program again !"
    constr = "Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=;Extended Properties=" & Chr$(34) & "DRIVER={MySQL ODBC 3.51 Driver};DESC=;SERVER=localhost;UID=root;PASSWORD=12345;PORT=;OPTION=16387;STMT=;" & Chr$(34)
    Set conn = New ADODB.Connection
    conn.Open constr
    conn.Execute "Create Database advising", , adExecuteNoRecords
GoTo z
End Sub