Do Until rs.EOF = True
degerler = degerler & ", '" & rs.Fields(0) & "'"
rs.MoveNext
Loop
kodunu aşağıdaki kodla değiştirip dener misiniz?Not: deneme imkanım olmadı sadece teorik
Do Until rs.EOF = True
degerler = degerler & ", '" & rs.Fields(1) & rs.Fields(2) & rs.Fields(3) & "'"
rs.MoveNext
Loop