高手看一下这个问题： 
每次提示frm_jiqiku.Adodc1.RecordSource = "select * from jiqiku where frm_jq." & listbox1.Text & " =  + '%" & Text1.Text + "'+'%'" 
这一句有问题。我觉得在frm_jq." & listbox1.Text & " =  + '%" & Text1.Text + "'+'%'"上问题大。因为我不知道这些格式是怎么设置的？ 
Private Sub Command1_Click() 
Dim cnn As New ADODB.Connection 
Dim rs As New ADODB.Recordset 
cnn.Open "Provider=SQLOLEDB.1;Password=h2f3n5j2;Persist Security Info=True;User ID=cn71197;Initial Catalog=cn71197_db;Data Source=121.198.155.231" 
If Text1.Text = "" Then 
  MsgBox "请重新输入查询条件 ！", vbExclamation, "提示信息" 
  Text1 = "" 
Exit Sub 
Else 
  frm_jiqiku.Adodc1.RecordSource = "select * from jiqiku where frm_jq." & listbox1.Text & " =  + '%" & Text1.Text + "'+'%'" 
  Adodc1.Refresh 
End If 
End Sub