Sayın oğulcan hocam ilginiz için teşekkür ederim. Visual basic 6.0 da kullanmaya çalışıyorum ancak bir türlü olmadı.
DataEvrimentte sorguile tablo oluşturmada denedim orada da olmadı alttaki örnekteki şekilde.

SELECT rownumber() ower(ORDER BY sube) AS sirano, adisoyadi,
Cinsiyeti, okulno, sinif, sube, okul INTO aaa
FROM T100_Ogrenciler WHERE (okul = '" & Combo1 & "') AND (sinif = '" & Combo2 & "') AND (sube = '" & Combo3.Text & "')