图代码中没有 msgbox"sqlstr"                           

        ‘timesaddr(addr - 1) as integer   整型                                        Set Rcset = New ADODB.Recordset
                                           Sqlstr = "select * form 数据 where 序号=" & timesaddr(addr - 1) & ""
                                            Rcset.Open Sqlstr, Con, adOpenStatic, adLockOptimistic
                                            If Rcset.RecordCount > 0 Then
                                               Rcset.MoveFirst
                                               Rcset("aver" & CStr(addr)) = averaddr(addr - 1)
                                               Rcset("sum" & CStr(addr)) = sumaddr(addr - 1)
                                               Rcset.Update  
                                            End If
////////模块
sub Main()
    Set Con = New ADODB.Connection
    ConStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\表决数据.mdb" & ";Persist Security Info=False"
    Con.Open ConStr
    Form1.Show
End Sub         

Public Con As ADODB.Connection
Public Rcset As ADODB.Recordset
Public Sqlstr As String '查询字符串
Public ConStr As String
哪里问题啊~~请好心人帮忙解答！！！！谢过~~~~~~ 不甚感激  

Sqlstr = "select * form 数据 where 序号=" & timesaddr(addr - 1) & ""      '你序号字段是什么类型，为什么最后还要连接一个字串？？如果是SQL命令结束，就连接一个分号吧。
msgbox Sqlstr          '这句不要双引号。

等你显示了 SQLSTR 的内容再看吧。

犯了个低级有低级的错误啊！
form → from
      谢谢您了！
有机会再向您请教！         

呵呵 我们组里好多人没发现！呃呃呃！

说实在的，我也没注意看。

只看了你显示 SQL命令的那行 的语句错了。

一般不完整的 SQL 命令我不愿看。完整的SQL 命令，我一般就扔到 查询器里去测试 。

谢谢！    我转行了！也是刚刚接触vb，还有很长时间去学它。
      俗话说活到老学到老啊！望您以后多多指正，相互学习！