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