vb+problema de programación de acceso,

No engañes a Liz. Aquí hay varios problemas: 1. No veo la declaración que define la base de datos. 2. No vi la declaración que define el conjunto de registros. No sé cómo abrió LZ el conjunto de récords. 3. Hay un problema con suma = suma + Adodc1.Recordset.Fields ("acqPrice"), pero no es el problema mencionado por LS. En cambio, se debe agregar el atributo Valor para obtener el valor del campo. sum=sum+Adodc1.Recordset.Fields("acqPrice") .value En resumen, todo el código debe escribirse así (para VB 6.0, um, LZ significa VB, no VBA): atenuar db como base de datos, primero como conjunto de registros set db=opendatabse("C:\Mydatabase.mdb") set rst =openrecordset("Table 1") hazlo hasta que no sea rst.EOF …………………… Bucle ……………………