Visual Basic - Crear base de datos

Hola me gustaria saber de donde puedo ver un ejemplo o alguien que me ponga unas lineas de como crear una base de datos y tablas desde visual basic en mysql

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