Dim conn As New ADODB.Connection Dim sqlstring As String Dim connstring As String Dim rs1 As New ADODB.Recordset Dim bm Dim tj As Boolean Private Sub Command1_Click() rs1.MoveFirst Command1.Enabled = False Command2.Enabled = False Command3.Enabled = True Command4.Enabled = True Call dispvalue 现实当前值 End Sub Private Sub Command2_Click() rs1.MovePrevious If rs1.BOF Then rs1.MoveFirst Command1.Enabled = False Command2.Enabled = False End If Command3.Enabled = True Command4.Enabled = True Call dispvalue 现实当前值 End Sub Private Sub Command3_Click() rs1.MoveNext If rs1.EOF Then rs1.MoveLast Command3.Enabled = False Command4.Enabled = False End If Command1.Enabled = True Command2.Enabled = True Call dispvalue End Sub Private Sub Command4_Click() rs1.MoveLast Command3.Enabled = False Command4.Enabled = False Command1.Enabled = True Command2.Enabled = True Call dispvalue End Sub Private Sub Command5_Click() If (MsgBox(要删除该条记录吗?, vbQuestion + vbYesNo, 警告,请注意!) = vbYes) Then rs1.Delete rs1.MoveNext If rs1.EOF Then rs1.MoveLast End If End If Call dispvalue End Sub Private Sub Command6_Click() If (MsgBox(要添加记录吗?, vbQuestion + vbYesNo, 请注意!) = vbYes) Then bm = rs1.Bookmark rs1.AddNew Call editstatus Call emptytext tj = True End If End Sub Private Sub Command7_Click() Call editstatus tj = False End Sub Private Sub Command8_Click() Call setvalue rs1.Update Call okstatus MsgBox (提示:保存成功!) End Sub Private Sub Command9_Click() If (MsgBox(真的要取消修改吗?, vbQuestion + vbYesNo, 请注意!) = vbYes) Then rs1 , CancelUpdate If tj Then rs1.Bookmark = bm End If Call dispvalue Call okstatus End If End Sub Private Sub 商品信息维护_Load() connstring = provider=microsoft.jet.oledb.4.0; & data source= & App.Path & \数据表.mdb;persist security info=false With conn .ConnectionString = connstring .ConnectionTimeout = 10 .Open End With MsgBox (连接成功！) rs1.CursorType = adOpenDynamic rs1.CursorLocation = adUseClient rs1.LockType = adLockOptimistic rs1.Open shangpinxinxi, conn, 3, 3 If rs1.EOF And rs1.BOF Then MsgBox 表为空，请添加记录 Else Call dispvalue 现实当前值 End If Call textdisable Command8.Enabled = False Command9.Enabled = False End Sub 我用的是adodc控件 ADO数据连接 问题是 dispvalue该怎么定义? 一运行就出现说子程序或者函数未定义
Private Sub emptytext()
Text1.Text = ""
End Sub

给一个例子，你只需要在你的代码下面接着写子程序就可以了，如果还有问题可留言