Ragazzi ho risolto posto il codice cosi' magari puo' servire . . . .


Sub Create_Database()

Dim Conn As ADODB.Connection

Set Conn = New ADODB.Connection

Conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=127.0.0.1;" _
& "UID=root;" _
& "PWD=caluro;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384

Conn.Open
On Local Error GoTo CREATE_ERROR
Conn.Execute "CREATE DATABASE Unina"
Conn.Execute "USE Unina"
Conn.Execute "CREATE TABLE Studente (" _
& "Matricola SMALLINT PRIMARY KEY," _
& "Nome CHAR(10) NOT NULL," _
& "Cognome CHAR(10) NOT NULL)"

Conn.Execute "CREATE TABLE Esami (" _
& "Matricola SMALLINT REFERENCES Studenti," _
& "Esame CHAR(10) NOT NULL," _
& "Voto CHAR(10) NOT NULL," _
& "Data CHAR(10) NOT NULL)"

Conn.Close
Set Conn = Nothing

Exit Sub

CREATE_ERROR:

Conn.Close
Set Conn = Nothing

End Sub


Basta richiamare la sub CReate_Database . . .