conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=f:\bamboo\config\data.mdb"
 conn.Open sql = "select * from host where domain='" & Replace(Trim(domain), "'", "''")&"'"
   MsgBox sql
   Set rs = conn.Execute(sql)
sql中带参数就显示Execute方法失败
不整就是正确的