"insert into SendedOutBox(mbno,Msg,SendTime,Comport,report) select Mbno,Msg,SendTime,ComPort,report from OutBox where (ID='"TextBox3.Text"')"

c#中这么写 没问题
到vb中就显示缺少结束语句 有没有知道的啊 .. 或者说c#的这个帮助怎么查出来的 我去查~

Dim strSel As String = "insert into SendedOutBox(mbno,Msg,SendTime,Comport,report) select Mbno,Msg,SendTime,ComPort,report from OutBox where (ID=TextBox3.Text)"

自问自答一个 原来这样就可以了...