VB ACCESS 链接

求助 VB ACCESS 链接
Private Sub Command2_Click()
Dim USENAME As String
Dim BRIDATE As Data
Dim SEX As String
Dim NUM As Integer
'//////////////////////////////
USENAME = Text1.Text
BRIDATE = DTPicker1.Value
NUM = BH
If Option1.Value = True Then
SEX = "男"
Else
SEX = "女"
End If



cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\USERINFO.mdb"
rs.CursorLocation = adUseClient
sql = "select * from userinfo"
cn.Execute sql
sql = "Insert Into USERINFO(姓名,性别,出生日期) Values (' + USENAME + ','+ SEX + ',#" & BRIDATE & "#)"
rs.Open Trim$(sql), cn, adOpenKeyset, adLockPessimistic

cn.Execute sql

rs.MoveNext
rs.Update
rs.Close
cn.Close
End Sub


、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、、
说是对象变量或with块变量未设置 红色字体处 提示错误

[解决办法]
Dim BRIDATE As Data
改为：
Dim BRIDATE As Date
[解决办法]
sql = "Insert Into USERINFO(编号,姓名,性别,出生日期) Values ( "& num &",'"& USENAME &"','"& SEX &"',#" & BRIDATE & "#)"

数值型变量引用："& 变量名 &"
字符型变量引用：'"& 变量名 &"'

[解决办法]
http://download.csdn.net/source/1498324