很着急！！在线等待！

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

txtxs_no.Text本身就是String型的,不用轉換

Answer 2

另外,不明白你為何要將textBox綁定數據源?
直接txtxs_no.Text=trim$(rs.fields("字段").value & "")不就行了麼

Answer 3

.ActiveConnection = cn
这句话中的CN有否定义??

Answer 4

这个好像应该是自定义的函数吧.要不然跟系统中的string(N,char)冲突了.而你里的调用方法是不对的.
感觉应该是:
xs_no = Trim(txtxs_no.Text)
意思是去掉前导与后导空格.