Crie uma simples função que receba somente o nome da tabela e que faça a operação de retornar a quantidade de registros. Neste caso você trocaria... If Tbsql.RecordCount >= 1 Then
... por:
If Conta("Reserva") >= 1 Then Inclusive, você pode colocar um segundo parâmetro que seria a condição (é provável que na maioria dos casos você não vai pedir todos os registros da tabela, mas sim apenas alguns através da cláusula WHERE). São idéias, mas experimentou trocar o cursor? Abraços, Graymalkin