كيف اقرا قيد قيد من ملف

السلام عليكم لدي برنامج في VB6 واريد تطويره الى VB2008.net  الكود الي احتاجه اريد اقرأ في كل مرة قيد من الملف في VB6 كان

Dim x, icounter As Integer
    SQLs = "Select * From Department
    If RS.State = adStateOpen Then RS.Close
    RS.Open SQLs, DB, adOpenKeyset, adLockPessimistic
    icounter = RS.RecordCount
    For x = 1 To (icounter)
        Combo1.AddItem RS.Fields(1)
        RS.MoveNext

    Next

فهل ممكن اعرف ما يقابله وكيف نقرأ في كل مرة قيد من ملف حتى نهاية الملف