Dim connectionString As String = MicroFour.StrataFrame.Data.DataLayer.DataSources("").ConnectionString
            Dim testConnection As SqlClient.SqlConnection = New SqlClient.SqlConnection(connectionString)
            Dim testCommand As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT * FROM TESTDEMO", testConnection)
            testConnection.Open()

            Dim sqlDr As SqlClient.SqlDataReader = testCommand.ExecuteReader(CommandBehavior.CloseConnection)

            If sqlDr.HasRows Then
                For Each rec As IDataRecord In sqlDr
                    ' Update the row
                    Dim dataRow As System.Data.DataRow = CType(rec, System.Data.DataRow)
                    dataRow.Item("ColumnName1") = "TestValue1"
                    dataRow.Item("ColumnName2") = "TestValue2"
                    ' And so on.

                    ' The dataRow value is processed accordingly so ...
                    ' assuming your BO is called _bizTest

                    '_bizTest.CurrentDataTable.Rows.Add(dataRow)
                Next
            End If

            testConnection.Close()
            testConnection.Dispose()