Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" _
& "Data Source= D:\My Documents\homework\Visual Basic\project1\Friend.mdb"
cn.Open
Set rs = New ADODB.Recordset
rs.Open "Friendlist", cn, adOpenStatic, adLockOptimistic
Set txtname.DataSource = rs
Set txtphone.DataSource = rs
Set txtbirth.DataSource = rs
Set txtaddress.DataSource = rs
Set Picture1.DataSource = rs
txtname.DataField = "Name"
txtphone.DataField = "Homephone"
txtbirth.DataField = "Birthdate"
txtaddress.DataField = "Address"
Picture1.DataField = "Photo"
但picture1連結唔到,怎樣解決呢@!!!