Visual Basic - URGENTE!!!!!!!! ADO Y SQL

OLA!
MI PROBLEMA ES EL SIGUIENTE:
TENGO UN ADO CONECTADO A UN BD Y LO Q NECESITO ES CONSEGUIR EJECUTAR UN SQL DE "CREATE TABLE" SOBRE ESA BD.

SE HACERLO CON OBJETO DATA, PERO CON ADO ME RESULTA IMPOSIBLE.

NO SE SI TENGO Q CREAR ON OBJ CONECTION O Q PERO EL CASO ES Q ME ESTOI VOLVIENDO LOCO

GRACIA SPOR TODO
ANTONIO

mira desde ado no tenes la posibilidad de crear tablas, tenes que buscar la referencia a adox, y desde ahi ver como hacerlo.
espero que sea de utilidad.
Saludos.

Public Micn As ADODB.Connection
Public Mirs As ADODB.Recordset

Function Buscar(QueConsulta)
On Error GoTo xx
Set Micn = New ADODB.Connection
Set Mirs = New ADODB.Recordset
Dim Ruta As String
Ruta = App.Path & "\domicilios.mdb"
Micn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source= '" & Ruta & "';Persist Security Info=False")
Mirs.Open (" " & QueConsulta & " "), Micn, adOpenDynamic, adLockOptimistic

xx:
If Err.Number = -2147217904 Then
MsgBox "Error en la consulta SQL, Por favor cambiela", vbCritical, "Error"


End If

End Function

call buscar("Create table Colegio (Alumno txt(20), Matricula numeric")
ahi se crea la tabla colegio con las tuplas alumno y matricula

espero que se entienda cualquier cosa escribime un mail)
pero si se puede crear tablas con ado

Compañero, ahora si tienes mejor aporte, pero falta algo muy, pero muy importante, un recordset no es bueno para ejecutar ddl's, para eso existen los objetos commando o directamente desde el objeto conexión.

Debes aprender a separar los scripts transaccionales de los gestores de datos DDL: Data Descriptor Languaje), y de los que retornan datos de los que no: Select puede ser atrapado en un recordset, insert, update, delete la ejecución no retorna nada, por tal razón pueden ser ejecutados con un command o un connection, un procedimiento si retorna datos puedes ejecutarlo desde un recordset, de lo contrario con un command o connection