ใครเขียน VB6 และ VB.NET เป็นทั้ง 2 ภาษาบ้างครับ รบกวนด้วยนะครับ จาก Code(VB6) ด้านล่าง

Dim recFP As New ADODB.Recordset
    recFP.Open "select * from fptable", connFP, adOpenKeyset, adLockOptimistic
    recFP.MoveFirst
    While Not recFP.EOF 
        sTemp = recFP.Fields("fpstring")
        ZKFPEngX1.AddRegTemplateStrToFPCacheDB fpcHandle, FingerCount, sTemp
        ReDim Preserve FFingerNames(FingerCount + 1)
        FFingerNames(FingerCount) = recFP.Fields("name")
        FingerCount = FingerCount + 1
        recFP.MoveNext
    Wend
    recFP.Close