How to use ReDim in vb.net+ Sourabh Das

[sd1978]

Hi,
This code is in vb6. How do I use the redim keyword in vb.net.

Public Sub FillVendor()
On Error GoTo err
I = 0
Set rs = New ADODB.Recordset
rs.Open "select * from tbl_vendor where isdeleted=0", cn, 1, 1
ReDim arrVendorId(rs.RecordCount)
While Not rs.EOF = True
    cmbVendor.AddItem rs("Vendor_name")
    arrVendorId(I) = rs("Vendor_Id")
    I = I + 1
    rs.MoveNext
Wend
Exit Sub
err:
    MsgBox err.Number & "- " & err.Description, vbInformation, err.Source
    Call I_Process_Errors("frmItem:FillVendor", err.Number, err.Description, err.Source)
End Sub

Regards,