Private Sub Kohlepreis_Bafa()
 
        Private ds_Bafa As New DataSet
        Dim cb_Bafa As OleDbCommandBuilder = New OleDbCommandBuilder(da_Bafa)
 
        Try
            conn_Bafa.Open()
 
            Dim row As DataRow
            Dim i As Integer = 0
 
            Dim dt_Bafa As DataTable = ds_Bafa.Tables("tbl_Bafa")
 
            For Each row In dt_Bafa.Rows
            ......
 
            Next
 
        Catch ex As OleDbException
            MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, _
              MessageBoxIcon.Exclamation)
        Finally
            conn_Bafa.Close()
 
        End Try
        LOAD_Table_Bafa()
End Sub