Connexion entre vb et oracle8i

dim cnx as ADODB.connection  ' déclaration de l'objet connexion
dim rst as ADODB.recordset       ' déclaration du recordset pour récupèrer le résultat de la requête

sub form_load()
  set cnx=new ADODB.connection      ' création d'un objet connection
    cnx.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=" + App.Path + "\db1.mdb;"      '
    If cnx.State = adStateOpen Then
        Set rst = New ADODB.Recordset       ' création du recordset
        rst.Open "select champ1 from table1", cnx      ' Passage de la requète en appliquant la connexion (cnx)
        text1.text=""
        While Not rst.EOF    'boucle de lecture du recordset
            text1.text=text1.text+Str(rst.Fields(0).Value)+vbcrlf    'affichage des données contenues dans le recordset
            rst.MoveNext
        Wend
        rst.Close     'fermeture du recordset
        Set rst = Nothing    'on vide l'objet recordset
        cnx.close    'fermeture de la connexion
    end if
  set cnx=nothing    'on vide l'objet connexion
end sub