Error 80004005

[yiyocastro]

Hola amigos.. necesito que por favor me ayuden con esto.

Código:

  Dim oRset
  Set oRset = Server.CreateObject("ADODB.Recordset")
  oRset.ActiveConnection = MM_vida_STRING
  oRset.Source = "SELECT addtransaction.idproccess, addproduct.names, addtransaction.cant, addtransaction.observacion FROM addproduct INNER JOIN addtransaction ON addproduct.idproducto=addtransaction.articulo;"
  oRset.CursorType = 0
  oRset.CursorLocation = 2
  oRset.LockType = 3
  oRset.Open()
  If rs.RecordCount=0 then
  Response.Redirect("err.asp?q=100")
  End If

hay algo malo aqui?

cuando ejecuto el codigo me sale

error '80004005'
/swnpanelcontrol/report.asp, line 356

y no se que hacer!
entonces necesito que porfavor me den pistas con esto.. pero algo increible y no lo creo es que con esto:

Código:

Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_vida_STRING
rs.Source = "SELECT addcategoria.nombre, addsubcategoria.name, addsubcategoria.idsubcategoria, addsubcategoria.descripcion FROM addcategoria INNER JOIN addsubcategoria ON addcategoria.idcategoria=addsubcategoria.iddependiente"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
If rs.RecordCount=0 then
Response.Redirect("err.asp?q=100")
End If

no me da problemas