禁止DataGrid所显示的数据可以被直接删除

Question

我用VB做了一个查询系统，并通过DataGrid显示查询结果，但我发现可以对所显示的数据在DataGrid中直接删除，同时数据库中也被删除了，请问怎么能禁止能在DataGrid中直接删除，我的代码如下：
Private Sub Text1_Change()  Adodc1.RecordSource = "select id as 编号,liaohao as 料号,banbenhao as 版本号,cangku as 仓库 from liaojian where liaohao like '%" + Text1.Text + "%'"
   Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1
  
End Sub

Answer 1

1)可用鼠标右键进入其属性页，将允许删除及允许更新的钩去除。
2）Private Sub Form_Load()
    DataGrid1.AllowUpdate = False
    DataGrid1.AllowDelete = False
End Sub