大家帮我看看这段代码有什么问题

slmonkey

Private Sub Command139_Click()
On Error GoTo Err_Command139_Click
Dim SQL As String
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset

SQL = "select sum(num) as sumnum from book"
rs.Open SQL, conn, 1, 1
Forms![form1]![当前剩余数量] = rs(0)
rs.Close
Set rs = Nothing



Exit_Command139_Click:
    Exit Sub

Err_Command139_Click:
    MsgBox Err.Description
    Resume Exit_Command139_Click
   
End Sub

老鬼

conn, 这个连接你没定义