Private Sub cmdClear_Click()
    txtID.text = " "
    txtFname.text = " "
    txtMname.text = " "
    txtLname.text = " "
    txtAge.text = " "
    txtSex.text = " "
    txtGS.text = " "
    txtAddress.text = " "
End Sub
Private Sub cmdSave_Click()
    Adodc1.Recordset.AddNew
    Adodc1.Recordset!ID = txtID.text
    Adodc1.Recordset.Update
    MsgBox "Data successfully added", vbInformation
End Sub
Private Sub Command1_Click()
    frmMain.Show
    Unload Me
End Sub