VB求助

[kry_1106]

Private Sub Form_Load()
Dim rst As adodb.Recordset
Set rst = New adodb.Recordset
gConnDB
rst.Open "select 食品,食品功能 from 生活食补2 where 生活食补='" & 健康食品 & "'", gCnn, 1, 3
Set VSFlexGrid1.DataSource = rst
End Sub

VB连接access数据库的时候运行之后出现提示:
实时错误91
对象变量或with块变量未设置
怎么办？？