Instrucciones sql desde vb6

Hola, aqui sigo aprendiendo VB6 y compartiendo lo aprendido, pues la verdad no he encontrado mucha informacion practica y pues lo que tengo es porque mis compañeros de trabajo me lo han enseñado.

Bien vamos a ver la secuencia para ejecutar consultas de SQL desde VB6 con ADO.

Dim Inouttb As ADODB.Connection

Set Inouttb = New ADODB.Connection
Inouttb.ConnectionString = "DSN=CONTROLACCESO"
Inouttb.Open
Inouttb.Execute "SELECT * FROM TABLE"
Inouttb.Close


Comentarios?