VB中使用代码动态给imagelist添加图片

Question

我的代码是：Sub LoadUserList()
    Dim img As ComboItem
    Dim rs As New ADODB.Recordset
    Dim i As Integer
    rs.Open "select * from userinfo", conn, adOpenKeyset, adLockOptimistic
    If rs.EOF Then
    LoginFrm.Username.Text = "当前没有用户"
    Exit Sub
    End If
    While Not rs.EOF
    i = i + 1
    LoginFrm.UserImg.ListImages.Add , , LoadPicture(App.Path & rs("Img"))
    'LoginFrm.UserImg.ListImages.Add , , LoadPicture("F:\DFZJOA\Images\logo.jpg")
    rs.MoveNext
    Wend
    i = 0
    While Not rs.EOF
    i = i + 1
    Set img = LoginFrm.Username.ComboItems.Add(, , rs!Username, 1)
    rs.MoveNext
    Wend
     rs.Close
End Sub
如果在添加 图片的时候用绝对地址，不用循环，那么一切正常，但是如果用循环读取数据库，就什么都没有显示了代码中如果只使用注释的那一句，那么可以正常显示，如果用我给的这个代码，程序运行正常，但是imagecombo里面就什么都没有

Answer 1

rs!Username
你确认是这个字段名？

Answer 2

Set img = LoginFrm.Username.ComboItems.Add(, , rs!Username, 1)

Answer 3

rs!username这个是用户名，图片是img字段

Answer 4

rs("Img")取出的是图片的文件名吗？
如果是就这样写
debug.print App.Path & "\" & rs("Img")  '这里看路径是否正确
LoginFrm.UserImg.ListImages.Add , , LoadPicture(App.Path & "\" & rs("Img"))

Answer 5

路径确定是正确的，就是不知道出现什么问题，图片不能加入到imagelist中

Answer 6

加上了，我用debug运行了，路径是完整的