lparameters ccomando as string, lcparam as string cconnstring=thisform.negocios.conexion() oconn = createobject("ADODB.Connection") ocomando = createobject("ADODB.Command") ors = createobject("ADODB.Recordset") oconn.connectionstring = cconnstring oconn.connectiontimeout = 60 **===> oconn.open **here error if vartype(lcparam)="U" or vartype(lcparam)="L" lcparam = "" endif ocomando.commandtext = ccomando+" "+lcparam ocomando.activeconnection = oconn ors = ocomando.execute() oconn = .null. ocomando = .null. return ors