Error en el metodo item del objeto recordset

[luisicozgz]

Buenos dias,

He creado un ejecutable de un programa que funciona bien y al ir a ejecutarlo en otro ordenador sale lo siguiente:

Error en el metodo item del objeto recordset en la linea siguiente:

DataELcurso.Recordsets.Item(1).Open Sql_text, conn, adOpenKeyset, adLockOptimistic

Las lineas anteriores son
Sql_text = " select persona.nombr_compl, "
Sql_text = Sql_text & " curso.nombr_curso,curso.fech_inicio,concat(curso.n umer_dias,'DÍAS / ',curso.numer_horas,' HORAS') as duracion, "
Sql_text = Sql_text & " planforma.codigo "
Sql_text = Sql_text & " From persona, planforma, curso "
Sql_text = Sql_text & " Where persona.id_pers = planforma.id_pers "
Sql_text = Sql_text & " and curso.codigo=planforma.codigo "
Sql_text = Sql_text & " and curso.codigo='" & Trim(TextCodigo_curso.Text) & "';"
DataELcurso.Recordsets.Item(1).Open Sql_text, conn, adOpenKeyset, adLockOptimistic

Tengo marcadas las siguientes referencias:
microsoft data environment instance 1.0
microsoft dao 2.5/3.51 compability library
microsoft data report designer v6.0
microsoft activex data objects 2.8 library
microsoft activex data objects recordset 2.8 library

Muchas gracias