vb sql数据库添加记录 提示“书签无效”请问怎么回事？

单击cmdAddNew按钮时提示框标题为“microsoft DataGrid 控件” 内容为“书签无效”Private Sub cmdAddNew_Click()
    Rs.AddNew
    Rs("物料名称") = Text1
    Rs("单位") = Text2
    Rs("领料人") = Text3
    Rs("日期") = Text4
    Rs.Update
End SubPrivate Sub cmdBreak_Click()
    Rs.Close
    Cn.Close
    Set Cn = Nothing
    MsgBox "连接断开"
    cmdBreak.Enabled = False
    cmdConnect.Enabled = True
End SubPrivate Sub cmdConnect_Click()
    On Error GoTo cuowu:
    Cn.ConnectionString = "provider=sqloledb.1;persist security info=false;user id=sa;password=zxc007;initial catalog=易耗品;data source=(local)"
    Cn.Open
    MsgBox "连接成功"
    sql = "select * from 易耗品领料记录 "
    Rs.Open sql, Cn, adOpenKeyset, adLockOptimistic
    Set DataGrid1.DataSource = Rs
    cmdConnect.Enabled = False
    cmdBreak.Enabled = True
    Exit Sub
cuowu:
    MsgBox "连接失败"
End Sub