Dim Cn As New ADODB.Connection, Rs as New ADODB.Recordset
Pirvate sub Form_Cload()
Cn.CursorLocation = adUseClient
Cn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=LocalHost;DATABASE=Test;UID=root;PASSWORD='';OPTION=3;"
Rs.ActiveConnection = Cn
''Aqui creas la tabla
Rs.Open "DROP DATABASE IF EXISTS `BD`"
Rs.Open "CREATE DATABASE `BD``"
Cn.CursorLocation = adUseClient
Cn.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=LocalHost;DATABASE=BD;UID=root;PASSWORD='';OPTION=3;"
Rs.ActiveConnection = Cn
Rs.Open "CREATE TABLE `DevHoy` (`NomCli` varchar(200) NOT NULL,`Telefono` varchar(50) NOT NULL,`Direccion` varchar(200) NOT NULL", KEY `Art_Cod`(`NomCli`,`Tel`,`NomObra`,`TelObra`,`FechaAlq`,`Dias`,`NomArt`,`Sal`,`Dev`,`TotDev`))"
End Sub
Espero y te sirva de algo. Suerte Colega