hi all,
please help me ti solved the problem,

my syntax

Public Sub GenerateNota()
Dim counter As Integer
Dim a As Integer
Dim SQLTEKS As String
SQLTEKS =...