Respecto al primer problema,el servidor al que subes el procedimiento almacenado,es contratado o es tuyo propio?si es contratado dudo que tengas permisos sobre la base de datos DBO,tendrás que cambiar eso por el nombre de la base de datos que hayas creado en el servidor
Respecto al segundo problema si lo que va dentro del Where es una cadena de caracteres tienes que poner ',es decir quedaría
Cita: strSQL = "SELECT TOP 1 " & strDbTable & "PMMessage.* FROM " & strDbTable & "PMMessage (WHERE " & strDbTable & "PMMessage.Author_ID = '" & lngToUserID & "') ORDER BY " & strDbTable & "PMMessage.PM_Message_Date DESC;"
Si no te sale así y lo estas usando para actualizar(por lo que pone en el error que te da),puede ser porque no tengas permisos para actulizar sobre la base de datos
Un saludo y suerte
