这个数据库功能如何实现？

先看图
http://blog.igowoo.com/ccc.jpg
我想实现的是：点击选择左下角的List，中间的图片和和右边的Text中数字会相应变换，我现在能够实现图片的切换，方法是：
Private Sub Form_Load()
'初始化
status = False
'数据的地址
dbname = App.Path & "\db1.mdb"
Set conn = New ADODB.Connection
conn.Open "driver=microsoft access driver (*.mdb);dbq=" & dbname
Set rs = New ADODB.Recordset
rs.Open "select p_path from pic", conn, 1, 1
If rs.EOF Then
    MsgBox "对不起，你的图片库为空，请先添加图片路径"
End If
End Sub
但是那些数字是不是要单独建rs.Open，还是可以有其他简便方法？谢谢！