Dim strSQL As String strSQL = "SELECT * FROM Employees" Dim cmd As OleDbCommand = New OleDbCommand(strSQL, conn) 'create data reader Dim rdr As OleDbDataReader = cmd.ExecuteReader While rdr.Read Dim newRow As PayrollDataSet.PayrollRow = PayrollDataSet.Payroll.NewPayrollRow newRow.EmployeeID = rdr("EmployeeID") newRow.MonthlySalary = rdr("MonthlySalary") newRow.SSSCont = rdr("SSSCont") newRow.SalaryLoan = rdr("SalaryLoan") newRow.NetIncome = rdr("MonthlySalary") - rdr("SSSCont") - rdr("SalaryLoan") PayrollDataSet.Payroll.Rows.Add(newRow) End While