最好了我想请求你一下!我单击了一下command1可以查询!

Question

想请求你一下!我单击了一下commands1可以查询!
但是单击第二次...第三次...(我重新输入了打印的查询条件)结果是一样的怎么关闭这个对象呢?
Public cmd1 As ADODB.CommandPrivate Sub Command1_Click()Set cmd1 = New ADODB.Command
DataEnvironment1.Commands.Item(1).CommandText = "select * from news where n_author='" & Text1.Text & "'"
DataReport1.Show
Set cmd1 = Nothing
End Sub

Answer 1

需要重载
Unload DataEnvironment1
DataEnvironment1.Commands(1).CommandText = "select * from 表 "
dataReport1.Show

Answer 2

同意使用:
Unload DataEnvironment1
DataEnvironment1.Commands(1).CommandText = "select * from 表 "
dataReport1.Show

Answer 3

判断一下DataEnvironment1.DataReport1绑定定的命令是是否打开.state=1 then
关闭，