Line 23: drCalendario = DatiCalendario(cn, IdCalendario)
Line 24: If IsNothing(drCalendario) Then Exit Sub
Line 25: litTesto.Text = drCalendario("Testo")
Line 26:
Line 27: Dim cmd As New OleDb.OleDbCommand("Select * from MarcatoriVista where IdCalendario=" & drCalendario("Id") & " order by Numero,NumeroIns, Nome", cn)
|