Dim dt As DataTable = ds.Tables("curA")
                If (dt.Rows.Count = 0) Then
                    Status.Text = "Keine Vorschläge vorhanden"
                Else
                    For Each oDR As DataRow In dt.Rows
                        If Not IsDBNull(oDR.Item("AS400")) Then
                            Dim values() As Object = oDR.ItemArray
                            DataGridView1.Rows.Add(values)
                        End If
                    Next
                    Status.Text = "Daten komplett"
                End If

Private WithEvents bsData As New BindingSource
...
Me.dgv.DataSource = bsData
...
            If IsNothing(ds) Then
                ' Problem mit Datenbank
                Exit Sub
            End If
 
            bsData.DataSource = ds.Tables("curP") 'Daten zuweisen
            dgv.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells