看看这段代码！！

Question

Private Sub cmdsearch_Click()
Dim cmd As Command
Dim xs_no As String
Dim err As ADODB.Error
Set cmd = New Command
Set rs = New Recordset
xs_no = String(txtxs_no.Text)
With cmd
.ActiveConnection = cn
.CommandText = "select*from xs where xs_no=?"
.CreateParameter , adChar, adParamInput, 6
End With
cmd.Parameters(0) = xs_no
Set rs = cmd.Execute
Set txtxs_no.DataSource = rs
Set txtxs_name.DataSource = rs
Set txtxs_sex.DataSource = rs
Set txtxs_jg.DataSource = rs
Set txtxs_csny.DataSource = rs
Set txtxs_dh.DataSource = rs
Set txtxs_zy.DataSource = rs
Set txtxs_rxsj.DataSource = rs
Set txtxs_bysj.DataSource = rs
Set txtxs_zsf.DataSource = rs
Set txtxs_bz.DataSource = rs
End Sub
这段代码是一个添加代码，运行时提示xs_no = String(txtxs_no.Text)这句语法错误啊！
我怎么也想不明白啊！各位大哥帮帮我好了！

Answer 1

String函数的参数必须是数字，即integer型或long型

Answer 2

你直接赋值就行了：xs_no = txtxs_no.Text

Answer 3

刚才的好了，又出现
.ActiveConnection = cn
什么参数类型不对或者不在可接受的范围之内或与其他参数冲突。
这是什么问题？

Answer 4

1.确认你CN是否是一个有效的连接.
2.确认你CN是否已经连上了,也就是CN.OPEN,检测一下CN的状态.
3.确认连接字符串是否正确.

Answer 5

你根本没有定义过CN啊. 
开头定义一下DIM CN AS CONNECTION 应该就可以了

Answer 6

先学学ADO吧.你一点都不懂怎么做实验?