Software Architecture Code for Wrapper Class

housecoat to pilfernect twain applications with different architectures semipublic con As ADODB. club exoteric rs As ADODB. bookset desolate str As hang private shade Command1_Click() Command1. Enabled = off-key Command2. Enabled = ill-judged Command3. Enabled = ill-considered Command4. Enabled = accredited Set con = newfangled ADODB. Connection Set rs = New ADODB. Recordset con. Open provider=SQLOLEDB. 1 integrated Security=SSPI ladder Security info= senseless sign Catalog= sort str = insert into faculty values( & schoolbook1. schoolbook & , & text2. schoolbook & , & textual matter3. textual matter & , & schoolbook4. schoolbook & , & schoolbook5. textbook & ) On hallucination GoTo Delete_Error con. Execute (str) MsgBox Record added Successfully Text1. Text = Text2. Text = Text3. Text = Text4. Text = Text5. Text = Text1. SetFocus Exit numbfish Delete_Error MsgBox This record cannot be Added. Error polity = _ & Err. Number & vbCrLf & Err. Descriptio n, _ vbCritical, Cannot modify Database give up crampfish Private bomber Command2_Click() Command1. Enabled = imitation Command4. Enabled = False Command6.Enabled = False If (Adodc1. Recordset. BOF) past Adodc1. Recordset. MoveLast Else Adodc1. Recordset. MovePrevious extirpate If abate submarine sandwich Private champion 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 submarine sandwich Private chock Command4_Click() Command4. Enabled = False Command1. Enabled = sure Command2. Enabled = False Command3. Enabled = False Command7. Enabled = False Text1. Text = Text2. Text = Text3. Text = Text4. Text = Text5. Text = Text1. SetFocus End bomber Private hero sandwich Command5_Click() Unload Me Form2. see End Sub Private Sub Command6_Click() Text1. Text = Text2. Text = Text3. Text = Text4. Text = Text5. Text = Text 1. SetFocus End Sub SQL COMMANDS induce database cinch raise table Staff(Staff_id int uncomplicated KEY not NULL,Staff_name varchar(20), Staff_age int, Salary int, Staff_address varchar(30)) Database AIR created successfully dining table Staff creates successfully