01.UserFinRec = New ADODB.Recordset
02.UserFinRec.Open("Select * from tb_user u,tb_fingerprint f " & _
03. "where u.uID=f.f_uid", Conn, 1, 2)
04.Dim Template() As Byte
05.While Not UserFinRec.EOF
06. ReDim Template(UserFinRec("fTemplate").ActualSize)
07. Template = UserFinRec("fTemplate").Value
08.
09. ScanerCtrl1.AddIdentifyDB(Template, UserFinRec("fID").Value & _
10. ":" & UserFinRec("uName").Value)
11. UserFinRec.MoveNext()
12.End While
