L'errore è sull'apertura del recordset nell'evento Load del form.
Devi specificare anche la connessione da usare, il tipo di cursore e il tipo di blocco.
Vedi riga in neretto:
codice:
Private Sub Form_Load()
   Call connetti
   ' apre il recordset leggendo tutti i campi dalla tabella tblOspiti
   Rs.Open "SELECT * FROM tblOspiti", Cn, 1, 3
   'riempie la vostra griglia coi dati del recorset 
   Set Datagrid1.DataSource = Rs     
End Sub