Sub DataImport_Database(ImportLab28 As Boolean, ImportTecoToRel28 As Boolean, _
  ImportLab08 As Boolean, ImportTecoToRel08 As Boolean, ImportLab43 As Boolean, _
  ImportTecoToRel43 As Boolean)
        Dim newXL As Excel.Application
        Dim newWB As Excel.Workbook
        Dim newWS As Excel.Worksheet
        Dim myStream As Stream = Nothing
        Dim openFileDialog1 As New OpenFileDialog()
        Dim LastRow As Long
        Dim LastCol As Integer
 
        openFileDialog1.Title = "Please select a file to open"
        openFileDialog1.InitialDirectory = "C:"
        openFileDialog1.Filter = "Excel files (*.xls)|*.xls"
        If openFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK _
          Then
            Try
                Dim excelFileName As String = openFileDialog1.FileName
                newXL = New Microsoft.Office.Interop.Excel.Application
                newXL.Visible = True
                newWB = newXL.Workbooks.Open(excelFileName)
                newWS = newWB.Worksheets(1)
 
                LastRow = newXL.ActiveSheet.UsedRange.Rows.Count
                LastCol = newXL.ActiveSheet.UsedRange.Columns.Count
 
 
                        'TableAdapter ersetellen  
                        Dim mTableAdapter As New _
                          SVIZ.LabToolDataSetTableAdapters.tblLabDate28TableAda_
                          pter
                        'Tabelle erstellen und über den TableAdapter mit Daten 
                        ' füllen
                        newXL.WindowState = Excel.XlWindowState.xlMinimized
                        Dim tbl As SVIZ.LabToolDataSet.tblLabDate28DataTable = _
                          mTableAdapter.GetData()
                        Dim DeleteTable As New _
                        SVIZ.LabToolDataSetTableAdapters.QueriesTableAdapter
                        Dim frmInitial As New frmDatenImport("Datenimport von" & _
                        "LabMgd CH28 läuft")
                        With frmInitial.pgbStart
                            .Maximum = LastRow
                        End With
                        DeleteTable.qryLabDataImportCH28Delete()
                        For i = 6 To LastRow
                            frmInitial.Show()
                            frmInitial.BringToFront()
                            frmInitial.Value = i - 5
                            frmInitial.txtPgbStatus.Text = "Datensatz " & (i - _
                              5) & " von " & (LastRow - 5) & " Datensätzen"
                            Dim mRow As SVIZ.LabToolDataSet.tblLabDate28Row = _
                            tbl.NewRow()
                            For ii As Integer = 2 To LastCol
                                Try
                                    mRow(ii - 2) = newXL.ActiveSheet.Cells(i, _
                                      ii).Value
                                Catch ex As Exception
                                    MsgBox(i)
                                End Try
                            Next ii
                            tbl.Rows.Add(mRow)
                        Next i
                        frmInitial.txtTitel.Text = "Datenbank Update"
                        mTableAdapter.Update(tbl)
                        newXL.WindowState = Excel.XlWindowState.xlMaximized
                        newXL.Quit()
                        newWB = Nothing
                        newWS = Nothing
                        frmInitial.Close()
                'Die Tabeldaten in die Datenbank übernehmen' Habe 
            Catch ex As Exception
                MsgBox("Fehler: " & ex.Message)
 
            End Try
        End If
 
    End Sub