Erro ao Editar

Olá, tenho uma página para edição de dados, a utilizo assim:

Function AlteraDados()
On Error Resume Next
Dim rs, sSql, sFilter

If Not IsNumeric(registroID) Then
AlteraDados = False
Exit Function
End If

	sSql = "SELECT * FROM `minhatabela` WHERE (`registroID` = " & registroID & ")	Set rs = Server.CreateObject("ADODB.Recordset")

	rs.CursorLocation = 3
	rs.Open sSql, conn, 1, 2
	If Err.Number <> 0 Then
 if Err.Number = -2147217864 then
 Session(mensagem) = "Você não alterou nenhuma informação, clique no botão 'Voltar' ou 'Cancelar'!"'Err.Description & "-" & Err.Number
 Else
 Session(mensagem) = Err.Description
 End If
 Session(mensagemtipo) = "error"
 rs.Close
 Set rs = Nothing
 AlteraDados = False
 Exit Function
	End If

	If rs.Eof Then
 AlteraDados = False 'falha
	Else

 sTmp = variavelTipo
 If Not IsNumeric(sTmp) Then
 sTmp = Null
 Else
 sTmp = CLng(sTmp)
 End If
 rs("ConvenioTipo") = sTmp

(coloco outros campos aqui, e finalizo...)
rs.Update

End Function
O problema:

• Em localhost, sempre funciona ok,
• Quando subo ao servidor, dá o erro que já tratei (-2147217864 - que na verdade é um erro sem especificação, pelo que pesquisei), mesmo tendo dados alterados
• tenho a mesma função em outras páginas de edição, e funciona normal...

Pergunto: alguém já passou por isso? por que funciona em localhost e não no servidor do site?

sds