关于VB6.0+Access2000的，窗体打印代码和图片加载代码的问题

Question

窗体打印：1.把Form1中combobox和text中显示的内容调用到Form2中的相关combobox和text中，或者是把Form1中datagrid（已经和Access绑定）的选中的信息直接调到Form2中，字段能对应上。
图片加载：2.在Form2中有个image（或者picturebox），一个adodc(绑定Access中表a.mdb，表中数据类型是ole对象，图片是jpg格式的),另外image的属性中datasource是adodc1,datafield是表a.mdb中的字段。
希望好心人可以把代码写出来（关键地方注释下），或者私聊，百度账号就是我QQ。
如果可以用，奉上我所有财富。
谢谢了！

Answer 1

1、form2.text1.text=form1.text1.text
form2.PrintForm
或者：
form2.text1.text= DataGrid1.Columns(1).Text
form2.PrintForm
2、“工程”==>“引用”....Microsoft activex data objects 2.X library
写入图片
Command1_Click()
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile "c:\kd\test.jpg"
Adodc1.Recordset.Fields("datafield").Value = mstream.Read
End Sub

读取数据库图片
Private Sub Command2_Click() '生成图片
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write Adodc1.Recordset.Fields("datafield").Value
mstream.SaveToFile "c:\kd\abc.jpg", adSaveCreateOverWrite
image1.picture=loadpicture("c:\kd\abc.jpg")
End Sub

说明：在引用上述程序时，请先行连接好数据库。

Answer 2

和我私聊吧，百度账号就是QQ

Answer 3

楼下的，你这运行不起来啊