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_data_2 As New SqlDataAdapter("EXEC API_GetReportDataRowset '503','<params></params>'", Q_connection)
        Dim Q_data_3 As New SqlDataAdapter("EXEC API_GetReportDataRowset '504','<params></params>'", Q_connection)
        Dim Q_data_4 As New SqlDataAdapter("EXEC API_ART_GetReportDataRowset 'RD_509','<params></params>'", Q_connection)
        Dim Q_dataset As New DataSet(), Q_1 As DataTable, Q_2 As DataTable, Q_3 As DataTable, Q_4 As DataTable

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

        Q_data_1.Fill(Q_dataset, "Q_1")
        Q_data_2.Fill(Q_dataset, "Q_2")
        Q_data_3.Fill(Q_dataset, "Q_3")
        Q_data_4.Fill(Q_dataset, "Q_4")

        Q_1 = Q_dataset.Tables("Q_1")
        Q_2 = Q_dataset.Tables("Q_2")
        Q_3 = Q_dataset.Tables("Q_3")
        Q_4 = Q_dataset.Tables("Q_4")

        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

        GS_data.Fill(Q_dataset, "GS_data_loaded")
        GS_data_loaded = Q_dataset.Tables("GS_data_loaded")

        Dim Q_cmd As New SqlCommand, Q_connection As New SqlConnection("Data Source=server;Initial Catalog=QA;Integrated Security=True")
        Dim Q_data_Users As New SqlDataAdapter("EXEC API_ART_GetReportDataRowset 'RD_504','<params></params>'", Q_connection)
        Dim Q_dataset As New DataSet(), 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 Access_connection As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.15.0;Data Source=test.accdb;Persist Security Info=False")
        Dim Access_cmd As New OleDb.OleDbCommand, Access_DAdapter As New OleDbDataAdapter()

        Access_cmd.Connection = Access_connection
        Access_cmd.Connection.Open()
        Access_cmd.CommandType = CommandType.Text
        Access_cmd.CommandText = "SELECT field1, field 2, field3 INTO user_data FROM Q_Users"
        Access_cmd.ExecuteNonQuery()

        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()