双击datagrid中的表格在另一个窗口显示其中的数据

edkh下相关代码如下
Private Sub DataGrid1_DblClick()'双击datagrid1空间时显示当前所选记录的详细数据
If recs > 0 Then
disp.Show vbModal
End If
End Sub

disp代码如下
Private Sub form_load()
If Trim(edkh.Adodc1.Recordset.Fields("姓名")) <> "" Then
Text1(0).Text = edkh.Adodc1.Recordset.Fields("姓名") & ""
Text1(1).Text = edkh.Adodc1.Recordset.Fields("性别") & ""
Text1(2).Text = edkh.Adodc1.Recordset.Fields("出生日期") & ""
Text1(3).Text = edkh.Adodc1.Recordset.Fields("单位") & ""
Text1(4).Text = edkh.Adodc1.Recordset.Fields("职务") & ""
Text1(5).Text = edkh.Adodc1.Recordset.Fields("单位电话") & ""
Text1(6).Text = edkh.Adodc1.Recordset.Fields("手机") & ""
Text1(7).Text = edkh.Adodc1.Recordset.Fields("工作地址") & ""
Text1(8).Text = edkh.Adodc1.Recordset.Fields("客户类型") & ""
Text1(9).Text = edkh.Adodc1.Recordset.Fields("住宅电话") & ""
Text1(10).Text = edkh.Adodc1.Recordset.Fields("家庭地址") & ""
Text1(11).Text = edkh.Adodc1.Recordset.Fields("个人爱好") & ""
Text1(12).Text = edkh.Adodc1.Recordset.Fields("背景信息") & ""
End If
End Sub

可是我双击某个记录 disp是弹出来了，但是是空白的 这是怎么回事啊？
哪位帮忙解答下 谢谢了！ --------------------编程问答-------------------- 我自己顶 做的东西就剩这一个问题了！ --------------------编程问答-------------------- 你把赋值的语句放在双击事件中就对了，当另外一个窗口弹出时，他的load事件中无法读adodc的值。 
Private Sub DataGrid1_DblClick() '双击datagrid1空间时显示当前所选记录的详细数据 
If recs > 0 Then 
disp.Show vbModal 
If Trim(edkh.Adodc1.Recordset.Fields("姓名")) <> "" Then 
disp.Text1(0).Text = edkh.Adodc1.Recordset.Fields("姓名") & "" 
disp.Text1(1).Text = edkh.Adodc1.Recordset.Fields("性别") & "" 
disp.Text1(2).Text = edkh.Adodc1.Recordset.Fields("出生日期") & "" 
disp.Text1(3).Text = edkh.Adodc1.Recordset.Fields("单位") & "" 
disp.Text1(4).Text = edkh.Adodc1.Recordset.Fields("职务") & "" 
disp.Text1(5).Text = edkh.Adodc1.Recordset.Fields("单位电话") & "" 
disp.Text1(6).Text = edkh.Adodc1.Recordset.Fields("手机") & "" 
disp.Text1(7).Text = edkh.Adodc1.Recordset.Fields("工作地址") & "" 
disp.Text1(8).Text = edkh.Adodc1.Recordset.Fields("客户类型") & "" 
disp.Text1(9).Text = edkh.Adodc1.Recordset.Fields("住宅电话") & "" 
disp.Text1(10).Text = edkh.Adodc1.Recordset.Fields("家庭地址") & "" 
disp.Text1(11).Text = edkh.Adodc1.Recordset.Fields("个人爱好") & "" 
disp.Text1(12).Text = edkh.Adodc1.Recordset.Fields("背景信息") & "" 
End If 
End If 
End Sub



_______________________________________________
这个是某人回答的 但是还是不能显示！ --------------------编程问答-------------------- 我用的程序尝试了。没问题能正常显示啊。。。
我在edkh窗体中放了一个DataGrid控件和一个ADO并且DataGrid跟ADO绑定了。
然后我又建立了一张表，和你的资源一样，双击DataGrid能在弹出来的窗体中正常显示啊~~
建议你step by step 跟踪看看问题出在哪 --------------------编程问答-------------------- 我双击后 能显示disp窗口，可是窗口里的每个text都是空的！！！！！ --------------------编程问答-------------------- 你把vbmodal这个模态窗口参数先去掉尝试一下，我用你上面给出的代码，模拟了你个。并没有发现你说的我问题，我的弹出窗口的文本框里都有数据～～ --------------------编程问答-------------------- 去掉vbmodal后，出错了，说什么当显示有模窗体时不能显示无模窗体
您QQ多少啊。。。指导下小弟吧

补充：VB ,  控件