JMC...

I read your blog and I changed the code to this:
Code:
 Private Sub vuldetails()
    Dim strvuldetails_sql As String = String.Format("SELECT BTW_ID,Code,Percentage,IsActief " & _
                                                    "FROM tblBTW " & _
                                                    "WHERE BTW_ID = @GeselecteerdeBTW")

    Using cmdvuldetails As New OleDbCommand(strvuldetails_sql, connection)
      connection.Open()

      With cmdvuldetails.Parameters
        .AddWithValue("@GeselecteerdeBTW", CInt(intGeselecteerdeBTW))
      End With

      Dim reader As OleDbDataReader = cmdvuldetails.ExecuteReader

      While reader.Read()
        Me.txtID.Text = reader("BTW_ID").ToString
        Me.txtBtwCode.Text = reader("Code").ToString
        Me.txtPercentage.Text = reader("Percentage").ToString
        chkIsActief.Checked = CBool(reader("IsActief"))
        blnIsActief = CBool(reader("IsActief"))
      End While

      reader.Close()
      connection.Close()
    End Using
  End Sub
The only thing I do not totally understand is how I can use the datatable here to load the data upfront...