'//////////////////////////////////////////////////È·ÈÏÌí¼ÓÓû§µÄ°´Å¥ Private Sub Command2_Click() Dim USENAME As String Dim BRIDATE As Data Dim SEX As String Dim NUM As Integer '////////////////////////////// USENAME = Text1.Text 'DTPicker1.Refresh BRIDATE = DTPicker1.Value NUM = BH If Option1.Value = True Then