Hi Everyone,
                   I am new to VB.NET and I have been give a task to
convert our old VB6 Macro template to VB.NET Template and some of the code I
have to convert is the on below. My question  can anyone put me in the write
direction on how to convert this code

Thanks in advance
-Ralph

Private Sub lsbParaLegal_Click()
Dim MyArray()

   vPL = lsbParaLegal.Value

   Set db = OpenDatabase("G:\FCMerge\FCMerge.mdb")
   Set rs = db.OpenRecordset(vPL)
   rs.Index = "TEMP_FILE__"

   lsbFiles.Clear

   lsbFiles.ColumnWidths = "0;75"

   optPSHFile.Value = True

   ReDim MyArray(rs.RecordCount, 3)

   'Load integer values MyArray

   MyArray(0, 0) = 0
   MyArray(0, 1) = "<Add New...>"

   For i = 1 To rs.RecordCount
       MyArray(i, 0) = rs.Fields(0)
       MyArray(i, 1) = rs.Fields(1)
       MyArray(i, 2) = rs.Fields(14)
       rs.MoveNext
   Next i

   lsbFiles.List() = MyArray

   rs.Close
   db.Close

End Sub