🚀 go-pugleaf

I've made a TTestDatabaseModule (type is a TDataModule) with a Constructor and Destructor.

TTestDatabaseModule::DataModuleCreate(TObject *Sender)
{
   MyADOConnection1->Open();
}

TTestDatabaseModule::DataModuleDestroy(TObject *Sender)
{
   MyADOConnection1->Close();
}

In my MainForm, there are 3 Buttons:
Button1: Connect to my DB
Button2: Disconnect to my DB
Button3: Query a Table inside my DB

For Button1:
I create an instance of my TTestDatabase and check for the Connection Status

   MyMainBody = new TTestDatabase(NULL);
   MyMainBody->DataModuleCreate(MyMainBodyForm);

   <Check for Connected Property == true>
   MyMainBody->MyADOConnection1->Connected == true
   // Edit1 will show TRUE or FALSE string based on if/else condition


For Button2:
Do a Disconnection and check for the Connection Status

   MyMainBody->DataModuleDestroy(MyMainBodyForm);

   <Check for Connected Property == true>
   MyMainBody->MyADOConnection1->Connected == true
   // Edit1 will show TRUE or FALSE string based on if/else condition

For Button3:
This Query is tide in with a TDBGrid on the MyMainBodyForm
<Some Query Statement that works>
SQL Statement something something
Query1->Open();
<Use see the Query on the Grid>

Now my problem is:
I connect to the DB (Press Button1) - All is Okay (TRUE in Edit1)
I Query my DB (Press Button3) - All is Okay (I see my data in the TDBGrid)
I disconnect from my DB (Press Button2) - All is Okay (FALSE in Edit1)

I try reconnecting:
I connect to the DB (Press Button1) - All is Okay (TRUE in Edit1)
I Query my DB (Press Button3) - I see nothing?
I disconnect from my DB (Press Button2) - All is Okay (FALSE in Edit1)

Why is my Query on a Reconnect not displaying?
Is there a Disconnection problem? I'm not following through with something? The Builder help says Close or Active = false will kill the connection.

Thanks for the help.
Heinz