简单的数据库录入问题

[blueraindrop]

xuhao,dahao,bqren都是text控件，程序总是说数据类型不匹配，我的数据库字段xuhao长整型dahao文本型bqren文本型
Private Sub Command1_Click()
Dim Conn As New ADODB.Connection
Dim RS As New ADODB.Recordset
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\cq\db1.mdb;Persist Security Info=False"
Dim sSQL As String
Dim xuhao1 As Long
Dim dahao1 As String
Dim bqren1 As String
xuhao1 = CLng(xuhao.Text)
dahao1 = CStr(dahao.Text)
bqren1 = CStr(bqren.Text)
Conn.Execute "insert into zhuzhai (xuhao,dahao,bqren) values('xuhao1','dahao1','bqren1')"
xuhao.Text = RS.Fields(0)

End Sub