数据库批量添加数据后问题,,请高手支招...感激不尽...谢谢!!!

我从记事本里将以下数据读入到服务器上的数据库.(这里列出一小部分数据)如下:ELEC_NO.          X              Y            Z           SIZE       Q_R      Q_F     G_R            
3557M0017T557     -81.000        -49.000      116.000     60*20      0        2       --           
3557M0017T558     -39.000        -52.000      117.000     30*40      0        2       --            
3557M0017T559     -41.000        -51.000      117.000     40*30      0        2       --           
3557M0017T560     -41.000        -51.000      116.000     25*25      0        2       --            
3557M0017T561     -32.000        -66.000      117.000     15*15      0        2       --          
3557M0017T564     -50.000        -117.000     100.000     15*15      0        2       --    在窗体上Datagrid控件里显出来.控件设置允许添加,更新,删除.  我选中一条记录想删除它,出现如下图报警.我用数据库是 SQL sever2005  在服务器上.程式编写如下:                 Do Until EOF(1)
                 Line Input #1, hang
                      ......
                      .......                       这里省略的是字段取值的变量,left mid方法取得的数值赋给变量
                      ......
            rs.CursorLocation = adUseClient
            rs.CursorType = adOpenKeyset
           cnn.Open "Provider=SQLOLEDB.1;Password=haiyang888;Persist Security Info=True;User ID=sa;Initial Catalog=CAM-DataBases;DataSource=10.194.156.78"
            rs.Open "select * from CAM", cnn, adOpenKeyset, adLockOptimistic
            rs.AddNew
            rs.Fields(1) = mohao
            rs.Fields(2) = Left(hang, txtlong)
            rs.Fields(3) = trimXpaowei                     
            rs.Fields(4) = trimYpaowei
            rs.Fields(5) = trimZshendu
            rs.Fields(6) = trimbeiliao
            rs.Fields(7) = " "
            rs.Fields(8) = " "
            rs.Fields(9) = trimgr
            rs.Fields(10) = trimgf
            rs.Fields(11) = trimzhicheng
            rs.Fields(12) = CAM.Text1.Text
            rs.Fields(13) = CAM.Combo1.Text
            rs.Fields(14) = CAM.Combo2.Text
            rs.Update
            rs.Close
            cnn.Close
    Loop
   Close #1
            rs.CursorLocation = adUseClient
            rs.CursorType = adOpenKeyset
          cnn.Open "Provider=SQLOLEDB.1;Password=haiyang888;Persist Security Info=True;User ID=sa;Initial Catalog=CAM-DataBases;Data Source=10.194.156.78"
          rs.Open "select * from CAM", cnn, adOpenKeyset, adLockOptimistic
 Set DataGrid1.DataSource = rs
  DataGrid1.Refresh这样写也能把数据读进去,可就不知道为什么不能删除,用delect方法也不行  
我打开数据库直接从数据库里删,结果还是删不掉
真郁闷. 用的是电脑作服务器. 是不是服务器处理速度问题,还是 SQL 2005反应慢的问题,我那台电脑上装的SQL2005 反应的很慢,连接,新建数据库或者表,反应非常慢.                             请各位朋友多多帮忙,感激不尽,谢谢!!!谢谢!!!