未成功写入数据库！", vbOKOnly + vbInformation, "错误"
        Exit Sub
    End Sub
    
    Private Sub Form_Load()
        txtAge.Text = CStr(udAge.Value)
        Register.Height = 5800
        Register.Width = 5800
        Register.Top = 2000
        Register.Left