郁闷的问题！！！！！！！！！！！！

Private Sub cmdMonth_Click()
'显示当月销售情况
Dim sum As Single
Sql = "select * from 销售查询表 where left(销售日期,7)='" & Left(Me.DTPicker1.Value, 7) & "'"
writeMS Sql, Me.MSFlexGrid1
For i = 1 To Me.MSFlexGrid1.Rows - 2
sum = sum + Me.MSFlexGrid1.TextMatrix(i, Me.MSFlexGrid1.Cols - 1)
Next i
Me.MSFlexGrid1.TextMatrix(Me.MSFlexGrid1.Rows - 1, Me.MSFlexGrid1.Cols - 1) = sum
End Sub
我看到别人写的一个系统中．数据库中就没有＂销售查询表＂　　　．．．．只有销售表呢，但是却能读到数据呢．不知道是什么问题？？？？