Public Sub Daten_auslesen()
 
    Dim oSession As OracleInProcServer.OraSession
    Dim oDatabase As OracleInProcServer.OraDatabase
    Dim sqlAdress As String
    Dim odsAdress As OracleInProcServer.OraDynaset
 
 
 
 
    ' Verbindung zur Datenbank herstellen.
    Set oSession = VBA.CreateObject("OracleInProcServer.XOraSession")
    Set oDatabase = oSession.OpenDatabase(mcstrService, mcstrDatabase & "/" & _
      mcstrPassword, &H0&)
 
 
 
    ' SQL-Abfragen
 
 
    sqlAdress = "select lpad(padr.haus_nr,length(padr.haus_nr)+length(" & _
      "padr.strasse)+1, padr.strasse || ' ') from padr where adress_id ='27"
 
 
    ' SQL-Abfragen ausführen.
    Set odsAdress = oDatabase.CreateDynaset(sqlAdress, &H0&)
 
...????

Gru?

Frank