[求助]编写VB对数据库排序时遇到的问题
刚学VB数据库，遇到了下面的问题，程序运行时到 人员信息.Data1.Refresh 就断了哪位大侠帮帮我这个新手呀，万分感激！
Private Sub OkCommand_Click()
sortSQL = ""
If Combo1.Text <> "" Then
sortSQL = Combo1.Text
Else
sortSQL = Combo1.Text & "desc"
End If
If sortSQL <> "" Then
sortSQL = "select * from 人员信息表 order by" & sortSQL
人员信息.Data1.RecordSource = sortSQL
人员信息.Data1.Refresh
人员信息.SortCommand.BackColor = &HFF
End If
Unload Me
End Sub
