'### Variablen für die Datenbank
        Dim con As Odbc.OdbcConnection = New Odbc.OdbcConnection( _
          "Driver={Oracle in" & _
          "OraClient10g_home1};Server=MABSV025;Dbq=MAC_PROD_NEU;Uid=*****;Pwd=" & _
          "****;")
        Dim command As New Odbc.OdbcCommand("SELECT * FROM AUSFALL WHERE" & _
        "MASCH_AUFTR_ID = 3894", con)
 
        '### Aufbau der Verbindung zum DB-Server
        con.Open()
 
        '### Starten des Readers
        Dim reader As Odbc.OdbcDataReader = command.ExecuteReader()
 
'### Datensätze auslesen
        While reader.Read()
            MsgBox(Str(reader(0)))
            MsgBox(Str(reader(1)))
            MsgBox(Str(reader(2)))
            MsgBox(Str(reader(3)))
        End While
        con.Close()

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim i As Integer
        '### Variablen für Excel
        Dim ex_app As Object
        Dim WBook As Object
        Dim ESheet As Object
 
        '### Variablen für die Datenbank
        Dim con As Odbc.OdbcConnection = New Odbc.OdbcConnection( _
          "Driver={Oracle in" & _
          "OraClient10g_home1};Server=MABSV025;Dbq=MAC_PROD_NEU;Uid=******;Pwd" & _
          "******;")
        Dim command As New Odbc.OdbcCommand("SELECT * FROM AUSFALL WHERE" & _
        "MASCH_AUFTR_ID = 3894", con)
 
        '### Aufbau der Verbindung zum DB-Server
        con.Open()
 
        '### Starten des Readers
        Dim reader As Odbc.OdbcDataReader = command.ExecuteReader()
 
 
        '### Excel-Datei erzeugen
        ex_app = CreateObject("Excel.Application")
        WBook = ex_app.Workbooks.Add
        ESheet = ex_app.ActiveSheet
 
        ESheet.Cell(1, 1).Font.Bold = True
 
 
        'i = 0
 
        While reader.Read()
 
            If Str(reader(i)) > "0" Then
                MsgBox(Str(reader(i)))
                ESheet.Range("A" & i + 1).value = Str(reader(i))
                i = i + 1
                MsgBox(i)
 
 
            Else
                MsgBox("Schleife durchlaufen")
            End If
 
 
        End While
        con.Close()
        ex_app.Visible = True
        SaveFileDialog1.Title = "Datei exportieren..."
        'SaveFileDialog1.Filter = "Excel-Datei (*.xlsx)|*.xlsx"
 
        '### Speichern und Schließen
        SaveFileDialog1.ShowDialog()
        ex_app.ActiveWorkbook.SaveAs(SaveFileDialog1.FileName)
 
        ex_app.ActiveWorkbook.Close(SaveChanges:=False)
        ex_app.Quit()
        ex_app = Nothing
 
 
 
    End Sub