01.
Private
Sub
Run()
02.
03.
connect()
04.
cmd =
New
SqlCommand(
"select * from F_ISS where Dateiss BETWEEN '"
& A1.Value &
"' AND '"
& A2.Value &
"'"
, cn)
05.
DR = cmd.ExecuteReader
06.
07.
issall.Rows.Clear()
08.
While
(DR.Read() =
True
)
09.
issall.Rows.Add(DR(0), DR(1), DR(2), DR(3), DR(4), DR(5), DR(6), DR(7))
10.
End
While
11.
cn.Close()
12.
13.
End
Sub