VB and ADO

Hi !!!!.

I have some problem with the connection ADO and Visual Basic.

 

please help me

 

This is my code

 

dim conecction as new connection

dim rstable as new recorset

sub main

    set conecction = createobject("ADODB".conecction)

    connection.open "dsn=kion"

end sub   

 

When find in the ODBC kion, this is a problem

With DAO function very good.

 

ja, Sorry for my english !!! I speak spanish :)