VB 2010 Dinamik Menü Oluşturma Sorunu

Merhabalar. VB6'da Bir Sözlük Programı projesi oluşturdum. Şimdi bu projemi VB 2010' taşımak istiyorum. Ancak epey fark var ikisi arasında.
Sorum Şu: accsess veri tabanından kod ile menüde "Aktif Sözlük Seç" menüsüne verileri nasıl getirebilirim.


vb6 kodları:


Veritabanı ve Form Yapısı



Yukarıdaki vb6 kodlarını vb 210' da nasıl yapabiliriz..
Teşekkürler....

[attachment=22075 yazdı: sokrates11 pid='123164' dateline='1423956375']Merhabalar. VB6'da Bir Sözlük Programı projesi oluşturdum. Şimdi bu projemi VB 2010' taşımak istiyorum. Ancak epey fark var ikisi arasında.
Sorum Şu: accsess veri tabanından kod ile menüde "Aktif Sözlük Seç" menüsüne verileri nasıl getirebilirim.


vb6 kodları:

Kod:

baGlan
Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "select * from aktif", veritabani, adOpenDynamic, adLockOptimistic
sayi = rs.RecordCount


If rs!aktifmi = True Then
aktif = rs!Caption
End If

   
Dim i As Integer
       For i = 1 To sayi * 2
           Load mnuSubitem(i)
           
           If (i Mod 2) = 0 Then
               mnuSubitem(i).Caption = "-"
           Else
               
               mnuSubitem(i).Caption = rs.Fields(3).Value
               rs.MoveNext
               
           End If
           
           
       Next
mnuSubitem(0).Visible = False
Unload mnuSubitem(sayi * 2)

Veritabanı ve Form Yapısı



Yukarıdaki vb6 kodlarını vb 210' da nasıl yapabiliriz..
Teşekkürler....

Biraz geliştirdim.

MsgBox("merhaba" & aktifsozluk.Name & "tuşuna bastınız.")
şeklinde deneğin

(17/02/2015, 00:42)C*e*l*o*y*c*e yazdı: MsgBox("merhaba" & aktifsozluk.Name & "tuşuna bastınız.")
şeklinde deneğin

Bu Aktif Sözlük Menüsüne tıklayınca çalışıyor.
Benim isteğim; Sözlük-1, Sözlük-2 ya da Sözlük -3 e basınca,
Sözlük-1 Seçtiniz, Sözlük-2 Seçtiniz Ya da sözlük-2'ye basınca sözlük-2 seçtiniz şeklinde olmasıdır..
Bunun da dinamik olmasıdır.
Çünkü Sözlük isimleri veri tabanından gelecek.