mycomm1.CommandText = "SELECT IdUscita,Nome,Cognome,IdSocio,Descrizione,Euro,Riferimento,[Data] " & _
        "FROM " & tabella1 & " " & _
        "WHERE [Data] = @prmData"
        mycomm1.Parameters.Add("@prmData", OleDb.OleDbType.DBDate, 10).Value = mydata