在VB中用DATA控件对数据库进行查询,怎么不对啊,急,请多帮忙
Private Sub cmdquery_Click()
If opti_datequery = True Then
nsql$ = "select * from 记录 where 日期"
nsql$ = nsql$ + "=" + "tquery.text"
'Data1.RecordSource = nsql$
'Data1.Refresh
Else
If opti_xmquery = True Then
nsql$ = "select * from 记录 where 姓名"
nsql$ = nsql$ + "=" + "tquery.text"
'Data1.RecordSource = nsql$
'Data1.Refresh
Else
nsql$ = "select * from 记录 where 操作"
nsql$ = nsql$ + "=" + "tquery.text"
'Data1.RecordSource = nsql$
'Data1.Refresh
End If
End If
Data1.RecordSource = nsql$
Data1.Refresh
End Sub
在执行的时候到Data1.Refresh
就报错,。可能是哪出问题了,求救啊