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()
        SqlCeCommand.Connection = SQLCe_connection
        SqlCeCommand.CommandType = CommandType.Text
        ItemID = Q_MM.Rows(1)(0)
        grd_name = Q_MM.Rows(1)(2)
        SqlCeCommand.CommandText = "INSERT INTO MaterialMaster ([Grade_Name], [ItemID]) VALUES('" & grd_name & "','" & ItemID & "')"
        SqlCeCommand.ExecuteNonQuery()