Dim Q_cmd As New SqlCommand, Q_connection As New SqlConnection("Data Source=ServerSQL;Initial Catalog=QA;Integrated Security=True")
        Dim Q_data_1 As New SqlDataAdapter("EXEC API_GetReportDataRowset '502','<params></params>'", Q_connection)
        Dim Q_dataset As New DataSet(), Q_1 As DataTable

        Q_cmd.Connection = Q_connection
        Q_cmd.Connection.Open()
        Q_dataset.DataSetName = "test"

        Q_data_1.Fill(Q_dataset, "Q_1")
        Q_1 = Q_dataset.Tables("Q_1")

        Dim SqlCeCommand As New SqlServerCe.SqlCeCommand, SQLCe_connection As New SqlServerCe.SqlCeConnection("Data Source=test.sdf;Persist Security Info=False")

        SqlCeCommand.Connection = SQLCe_connection
        SqlCeCommand.Connection.Open()
        SqlCeCommand.CommandText = "SELECT field_1, field_2 FROM Q_1 INTO QA_1"
        SqlCeCommand.CommandType = CommandType.Text
        SqlCeCommand.ExecuteNonQuery()

        Dim Q_cmd As New SqlCommand, Q_connection As New SqlConnection("Data Source=server01;Initial Catalog= QA;Integrated Security=True")
        Dim Q_data_Users As New SqlDataAdapter("EXEC API '504','<params></params>'", Q_connection)
        Dim Q_dataset As New DataSet("test"), Q_Users As DataTable

        Q_cmd.Connection = Q_connection
        Q_cmd.Connection.Open()

        Q_data_Users.Fill(Q_dataset, "Q_Users")
        Q_Users = Q_dataset.Tables("Q_Users")

        Dim SqlCeCommand As New SqlServerCe.SqlCeCommand, SQLCe_connection As New SqlServerCe.SqlCeConnection("Data Source=localcomp\localDB.sdf;Persist Security Info=False")
        Dim GS_data As New SqlServerCe.SqlCeDataAdapter("SELECT * FROM GS_data", SQLCe_connection), GS_data_loaded As DataTable

        SqlCeCommand.Connection = SQLCe_connection
        SqlCeCommand.Connection.Open()

        SqlCeCommand.CommandText = "SELECT field1, field 2 FROM '" & Q_Users.ToString & "' INTO test"
        SqlCeCommand.CommandType = CommandType.Text
        SqlCeCommand.ExecuteNonQuery()