PUBLIC txt as string '建一个全局变量
sub command1_click()
datagrid1.SelText
end sub
在下一个窗口中读取变量 txt 即可
Private Sub datagrid1_DblClick()
If Adodc1.Recordset.RecordCount > 0 Then
form2.show
form2.text1.text=datagrid1.SelText
end if
End sub
datagrid控件 肯定有设置数据源吧 取其rs不就完了