vb中sql查询一条Access记录语句 下面的怎么不能在对应文本框中显示 改一下错误

DB.openDB
Dim sql As String
sql = "select * from pic where P_name='" & ypxinxi.List1.Text & "'"

Set rst = DB.queryDB(sql)
If Not rst.EOF Then
With xiugaifilm
.txtName.Text = rst(1)
.txtdaoyan.Text = rst(2)
.txtzuyan.Text = rst("P_zy")
.txtTime.Text = rst("P_time")
.txtinfo.Text = rst("P_jj")
.Image1.Picture = LoadPicture(App.Path & "\图标\" & rst("P_pic"))
End With
End If

程序提示什么？或者如何不正确显示你没描述呀。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息