VB中DATAgrid问题

运行下列代码手 datagrid控件没有任何反应 数据库已经链接 使用ADODC控件链接SQL
Sub refreshgrid()
adodcscore.RecordSource = "select s.st_id as 学号,s.st_name as 姓名," _
& "sc.score as 成绩 from st_info s,s_c_info sc " _
& "where s.cl_name='" + Trim(cmbcls.Text) _
& "'and s.st_id=sc.st_id and sc.c_no='" _
& Trim(strCNo) & "'"
adodcscore.Refresh
grdscore.Refresh

End Sub

Private Sub DataGrid1_Click()

End Sub

Private Sub cmbcls_Click()
refreshgrid
If adodcscore.Recordset.EOF And adodcscore.Recordset.BOF Then
MsgBox cmbcls.Text & "无" & cmbcname.Text & "成绩", , "成绩信息"
End If

End Sub

Private Sub cmbcname_Change()
strCNo = cmbcname.BoundText
refreshgrid
End Sub

Private Sub cmdadd_Click()
If cmbcname.Text = "" Or cmbcls.Text = "" Then
MsgBox "请选择课程名称与班级

vb中datagrid问题 vb中datagrid控件问题 VB中datagrid排序问题 VB中datagrid控件问题 VB中datagrid控件的问题： vb datagrid 问题 关于VB中DataGrid中一个字段的排序问题 vb+access 数据库中datagrid的绑定问题 ·VB中 DataGrid 插入数据的问题 简单问题！VB中datagrid控件的设置