connstring = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=bs_tjxt_wj;Data Source=20100413-1548"
conn.Open (connstring)
str0 = "select *from wc_tjxt.dbo.tj_tjdjb where DJRQ= '" & Trim(Text1.Text) & "' "
rs.Open str0, conn, 1, 3
rs.MoveFirst
conn.Execute "insert into wc_tjxt.dbo.tj_tjxj 怎么样把指针对应的那条记录插入到表里"
谢谢各位高手啊!!!!!!