写SQL语句(以char型字段为例)
命令command1设为开放式dim s_sql as string 添加:
s_sql="insert into table(field1,field2) values('" & value1 & "','" & value2 & "')"
删除
s_sql="delete from table where field1='" & value1 & "'"
查找
s_sql="select * from table where field1='" & value1 & "'"if DataEnvironment1.rsCommand1.state=adstateopen then
   DataEnvironment1.rsCommand1.close
end if 
DataEnvironment1.rsCommand1.source=s_sql
DataEnvironment1.rsCommand1.open