VB6.0中如何用按钮对DataGrid中的记录进行操作

Question

我连接的SQL数据库 添加了 网格（datagrid）控件 网格下面下面设置了四个按钮 “添加”“删除”“更新”“取消” 直接对网格中的记录进行操作 有一下突然好了 后来又用不成了 按照书上的代码写的 但是好像有错误 按钮都不能用 请高手指点一下 这是我的代码 用的ADODC连接数据库 ADODC连接数据库已经连接好了
这是前面的代码 看不太懂 （照着参考书写的）Private Sub Adodc1_MoveComplete( _
ByVal adReason As ADODB.EventReasonEnum, _
ByVal pError As ADODB.Error, _
adStatus As ADODB.EventStatusEnum, _
ByVal pRecordset As ADODB.Recordset)
Adodc1.Caption = "Record: " & _
CStr(Adodc1.Recordset.AbsolutePosition)

End Sub
这是其中删除按钮的代码 其他的都差不多

Private Sub CmdDelete_Click()
On Error GoTo DeleteErr
With Adodc1.Recordset
.Delete
.MoveNext
If .EOF Then .MoveLast
End With
Exit Sub
DeleteErr:
MsgBox Err.Description
End Sub

一点按钮就有错误提示是“对象变量或with块变量未设置”
希望能有高手指点
只有10分了 都给你了 希望能帮我解决 尽快 谢谢

Answer 1

添加命令;
Private Sub Command1_Click()
Adodc1.RecordSource = " select * from 超级用户表"
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("用户名") = Trim(Text1.Text)
Adodc1.Recordset.Fields("密码") = Trim(Text2.Text)
Adodc1.Recordset.Update
MsgBox "用户添加成功！！！"
End Sub

Private Sub Command2_Click()
End
End Sub
删除命令;
Private Sub Command1_Click()
sql = "select * from 超级用户表 where 用户名 = '" & Trim$(Text1.Text) & "' "
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\k01\桌面\耿会\数据源信息汇总.mdb;Persist Security Info=False"
con.Open cnStr
rs.Open sql, con, adOpenDynamic, adLockOptimistic '3, 2
If rs.EOF Then
MsgBox "没有此用户！"
Text1.SetFocus
Else
rs.Delete
MsgBox "删除成功！"
rs.Update
Text1.Text = ""
Me.Visible = 0
End If
End Sub

Private Sub Command2_Click()
End
End Sub