Private Sub grid_füllen(ByVal sql As String)
        ds.Tables.Add(dt)
        da = New MySqlDataAdapter(sql, connMysql)
 
        Try
            da.Fill(dt)
            'Datum in Datatable anpassen lt. C-Methoden Definition
            For a As Integer = 0 To dt.Rows.Count - 1
                dt.Rows(a)("Datum") = Format(GetWorkDate(dt.Rows(a)("Datum"), _
                  AV_AT), "dd.MM.yyyy")
            Next
 
            bs.DataSource = dt
            dv = dt.DefaultView
            Me.dgv.DataSource = dv
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub