VB中用DBGrid如删除增加数据

Option Explicit
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.Connection
'删除
Private Sub cmdDel_Click()
  On Error Resume Next
  Rs.Delete
 
End Sub
'确定更新数据
Private Sub cmdUpdate_Click()
  On Error Resume Next
  Rs.UpdateBatch
End Sub
'增加
Private Sub Command1_Click()
 On Error Resume Next
 Rs.AddNew
End Sub
'连接datagrid
Private Sub Form_Load()
   Dim strConn As String
   strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=LocalHost"
   Conn.CursorLocation = adUseClient
   Conn.Open strConn
  
   If Rs.State <> adStateClosed Then Rs.Close
   Rs.Open "Select * from jobs", Conn, adOpenStatic, adLockBatchOptimistic  '用批次打开
   Set Me.DataGrid1.DataSource = Rs
End Sub
'关闭
Private Sub Form_Unload(Cancel As Integer)
  Rs.Close
  Set Rs = Nothing
  Conn.Close
  Set Conn = Nothing
End Sub