Prima di aprire il recordset metti questa riga

Mostra.CursorLocation = 3

cioè prima di questa riga

Mostra.Open(Sql,Connessione,1);