Bueno miren, ya fui encontrando algo:
Cita: Private Sub Command1_Click()
Dim conn As New ADODB.Connection
'Dim rs As New ADODB.Recordset
conn.CursorLocation = adUseClient
conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};" _
& "SERVER=localhost;" _
& "DATABASE=;" _
& "UID=root;" _
& "PWD=;" _
& "OPTION=" & 1 + 2 + 8 + 32 + 2048 + 16384
conn.Open
conn.Execute "CREATE DATABASE `test2`;"
conn.Execute "CREATE TABLE `test2`.`blabla` ( `id` int(11) NULL AUTO_INCREMENT, PRIMARY KEY (`id`)) ENGINE=InnoDB;"
conn.Execute "ALTER TABLE `test2`.`blabla` ADD COLUMN `lala` int(11) NULL DEFAULT NULL;"
'rs.Close
'Set rs = Nothing
conn.Close
Set conn = Nothing
MsgBox "ok"
End Sub
Fuente: codigoplus.com/foro/index.php?showtopic=558
este code es para crear tablas tambien creo.
Bueno voy aclarando un poco...
pero yo queria (COMO YA ACLARE).
Dos textboxs uno el nombre de la tabla y el otro el contenido y un boton que cree lo escrito y listo.
Ruego de su ayuda...
Saludos.