修改sql命令，高手速进！

Question

我用VB6.0+Access做数据库程序
在做报表的时候我用了vb6.0自带的dataEnviorment和dataReport
控制报表上显示的数据时我使用的是dataEnviorment里面的command命令
但是这个命令好像只能在设计的时候写进去
请问各位大虾们能不能动态一下，
怎么用代码来修改command命令呢？我试过这样写：with DataEnviorment1
     .command1.CommandText="select * from mytable where id=" & newid
end with但是这样写是无效的，一运行就报错，大家帮下忙
怎么在代码里面修改那信命令啊？
急急急急.....................................................................

Answer 1

Set conn = New ADODB.Connection                                '创建一个连接和打开 Cnn 连接
    Set rst = New ADODB.Recordset                                '创建一个记录集
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordsetconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.Path & "\数据库.MDB;" & _
   "Jet OLEDB:Engine Type=4"Strsql = "select * from mytable where id=" & newid & " "
  rst.Open Strsql, conn, adOpenKeyset, adLockOptimistic
 H = rst.RecordCount
 Set DataEnviorment1= rst