求助 VB ＳＱＬ - VB / 基础类

Dim USERNAME As String
Dim BRIDATE As Data
Dim SEX As String
Dim NUM As Integer
//////////////////要插入的数据在上边4个定义的变量中存放
表字段名 ：编号，姓名，出生日期，性别 分别对应 NUM USERNAME BRIDATE SEX
要把这个记录加到表的末尾 改怎么做 尤其是 insert into 后 数据格式问题
请指教

---

INSERT INTO Persons (NUM,USERNAME,BRIDATE,SEX) VALUES (1111, 'Elysees',2000-01-01,'m') where 列1=值1

---

MSSQL中插入日期好像要这样吧：INSERT INTO Persons (NUM,USERNAME,BRIDATE,SEX) VALUES (1111, 'Elysees',#2000-01-01#,'m') where 列1=值1

---

VB code:
'insert into 后不需要加where条件,除非是 insert inot select ... where 格式
INSERT INTO Persons (NUM,USERNAME,BRIDATE,SEX) VALUES (1111, 'Elysees','2000-01-01','m')

---

引用

VB code
'insert into 后不需要加where条件,除非是 insert inot select ... where 格式
INSERT INTO Persons (NUM,USERNAME,BRIDATE,SEX) VALUES (1111, 'Elysees','2000-01-01','m')

'//////////////////////////////////////////////////确认添加用户的按钮
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