Public Class Form1
Dim dttKlanten As DataTable
Dim dtrRijen() As DataRow
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer
Me.dtaKlanten.Fill(DtsArtemis1) 'dataset laden met gegevens uit dataAdapter
dttKlanten = DtsArtemis1.Tables.Item("tblklanten")
dtrRijen = dttKlanten.Select() 'alles uit dttKlanten selecteren en toewijzen aan array dtrRijen
End Sub