Dim Q_cmd As New SqlCommand, Q_connection As New SqlConnection("Data Source=SQL_server;Initial Catalog=QA;Integrated Security=True")
        Dim Q_data_MM As New SqlDataAdapter("EXEC GetReportDataRowset '509','<params></params>'", Q_connection)
        Dim Q_MM As DataTable, Q_dataset As New DataSet()
        Dim r As Integer, rw As DataRow

        Dim SqlCeCommand As New SqlServerCe.SqlCeCommand, SQLCe_connection As New SqlServerCe.SqlCeConnection("Data Source=test_Local.sdf;Persist Security Info=False")
        Dim MM_data As New SqlServerCe.SqlCeDataAdapter("SELECT * FROM table_MM", SQLCe_connection)
        Dim SE_MM As DataTable

' Network DB
        Q_connection.Open()
        Q_data_MM.Fill(Q_dataset, "Q_MM")
        Q_MM = Q_dataset.Tables("Q_MM")

' Local DB
        SQLCe_connection.Open()
        MM_data.Fill(Q_dataset, "SE_MM")
        SE_MM = Q_dataset.Tables("SE_MM")

        For r = 1 To Q_MM.Rows.Count - 1
            rw = SE_MM.NewRow()
            rw("Grade_Name") = Q_MM.Rows(r)(2)
            rw("TType") = Q_MM.Rows(r)(3)
            rw("TForm") = Q_MM.Rows(r)(4)
            rw("NetW") = Q_MM.Rows(r)(7)
            rw("Origin") = Q_MM.Rows(r)(5)
            rw("Region") = Q_MM.Rows(r)(6)
            rw("PackT") = Q_MM.Rows(r)(8)
            rw("MatGroup") = Q_MM.Rows(r)(1)
            rw("ItemID") = Q_MM.Rows(r)(0)
            SE_MM.Rows.Add(rw)
        Next r
        MM_data.Update(Q_dataset.Tables("SE_MM"))

 MM_data.Update(Q_dataset.Tables("SE_MM"))