Software Architecture Code for Wrapper Class

Wrapper to bitenect two applications with different architectures Public con As ADODB. Connection Public rs As ADODB. Recordset Dim str As mountain chain Private step in Command1_Click() Command1. Enabled = anomalous Command2. Enabled = faithlessly Command3. Enabled = False Command4. Enabled = True eagerness con = New ADODB. Connection Set rs = New ADODB. Recordset con. Open provider=SQLOLEDB. 1Integrated Security=SSPIPersist Security Info=FalseInitial Catalog=AIR str = insert into Staff values( & text1. text edition & , & textual matter2.Text & , & Text3. Text & , & Text4. Text & , & Text5. Text & ) On Error GoTo Delete_Error con. Execute (str) MsgBox Record added successfully Text1. Text = Text2. Text = Text3. Text = Text4. Text = Text5. Text = Text1. SetFocus Exit champion Delete_Error MsgBox This record cannot be Added. Error code = _ & Err. Number & vbCrLf & Err. Description, _ vbCritical, Cannot Update Database bar substitute Private Sub Command2_Click() Comm and1. Enabled = False Command4. Enabled = False Command6.Enabled = False If (Adodc1. Recordset. BOF) consequently Adodc1. Recordset. MoveLast Else Adodc1. Recordset. MovePrevious End If End Sub Private Sub Command3_Click() Command1. Enabled = False Command4. Enabled = False Command6. Enabled = False If (Adodc1. Recordset. EOF) Then Adodc1. Recordset. MoveFirst Else Adodc1. Recordset. MoveNext End If End Sub Private Sub Command4_Click() Command4. Enabled = False Command1. Enabled = True Command2. Enabled = False Command3. Enabled = False Command7. Enabled = False Text1. Text = Text2. Text = Text3. Text = Text4. Text = Text5. Text = Text1. SetFocus End Sub Private Sub Command5_Click() Unload Me Form2. Show End Sub Private Sub Command6_Click() Text1. Text = Text2. Text = Text3. Text = Text4. Text = Text5. Text = Text1. SetFocus End Sub SQL COMMANDS shape database AIR create table Staff(Staff_id int PRIMARY KEY NOT NULL,Staff_name varchar(20), Staff_age int, honorarium int, Staff_address varchar(30)) Database AIR created successfully Table Staff creates successfully