图代码中没有 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
哪里问题啊~~请好心人帮忙解答！！！！谢过~~~~~~ 不甚感激  

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

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

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