Conexion VB, ADO y ORACLE

tema enviado por berni en Visual Basic 6.0
tema iniciado el 01/03/2007

Hola a todos, espero me puedan ayudar, mi consulta es que necesito conectarme a una base de datos Oracle a traves del VB y ADO pero me arroja error con el siguiente codigo que supuestamente esta correcto.

Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cadena As String

cadena = "Provider=MSDAORA.1;Data source=TELEF;initial catalog = CONFIGURACION;User Id=asm;password=asm"
cn.Open

Set rs = cn.Execute("select * from DAT_TERMINAL")

End Sub

Si alguien me pudiera correguir el codigo tuviese un codigo que me pueda facilitar se lo agradeceria mucho.

saludos.

Berni