vb中实现数据表中两个数据相加，出现问题

Dim p As Integer
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
cn.Open ("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=独占设备;Data Source=PC-20110915FGKA")
sql = "select * from PROCESS where jczhuangtai=0"
rs.Open sql, cn, 1, 3
cn.Execute "update PROCESS set dengdaitime=" & p & " where jinchenghao=(select top 1 jinchenghao from PROCESS where jczhuangtai=0)"
p = rs("dengdaitime") + rs("yunxingtime")
编译不错，结果总是出错，不是显示dengdaitime就是只显示yunxingtime，求改正！