VB连接网页问题

在VB中通过两个ADO DATA控件和两个DATAGRID控件显示有关联的两个表

现有一个数据库student.mdb,其中有两个表：student和score,两表通过学号进行联系，现要显示两个表，当student表中选择某个学生时，对应的score表显示该学生的成绩。实现方法如下：
一、新建工程后，在窗体中添加两个Ado Data控件和两个DATAGRID控件，在Adodc1中加入数据库及表student（添加过程从略）,在Adodc2中加入数据库,recordsource设为1-adCmdText，在命令文本中输入：select * from score。然后将DataGrid1的DataSource设为Adodc1,将DataGrid2的DataSource设为Adodc2。最后可将Adodc1和Adodc2的Visible设为False使之运行时不可见。
二、设置DataGrid1的RowColChange代码如下：
Dim sec As String
sec = DataGrid1.Text
Adodc2.RecordSource = "select * from score where score.学号=" & chr(34) & sec & chr(34)
Adodc2.Refresh

在运行时，单击DataGrid1的学号所在列，即可在DataGrid2中显示该学号对应的score表的情况。

说明：
使用 RowColChange 可以在DataGrid 被连接到一个数据库后，获得用户单击了哪一个单元，然后可以显示用户所单击的单元的文字、行和列的信息等：DataGrid1.Text; DataGrid1.Row; DataGrid1.Col
也可以指定某一列的单元格信息，如下行为指定DataGrid1的第2列单元格：
sec =DataGrid1.Columns.Item(1).Text

DataGrid1的触发事件中直接写弹出窗口的javascript脚本就可以了。

例如:CreateObject("wscript.shell&qu