我这样好像不行，谁帮我修改一下

应该是SQL语句错误，错误是参数没有设定或者错误的设定了where data=result 的语句

解决方案 »

  1.   

    注意类型：conn.Execute "insert into yjmc_ls_t(yjbh,cfdd,kcsl,nfjy) values ('" & rs.Fields(0).Value & "','" & rs.Fields(1).Value & "','" & rs.Fields(2).Value & "','" & rs.Fields(3).Value & "')"
      

  2.   

    你的yjbh,cfdd,kcsl,nfjy字段是什么字段，如果是字符型的，要加单引号，数字的不要。改为
    conn.Execute "insert into yjmc_ls_t(yjbh,cfdd,kcsl,nfjy) values ('" & rs.Fields(0).Value & "','" & rs.Fields(1).Value & "','" & rs.Fields(2).Value & "','" & rs.Fields(3).Value & "')"
      

  3.   

    同意ttyp(懒人)的观点，请你去找找Access的帮助吧！Access中的SQL语句和VB是通用的