Excel VBA中怎么引用多个单元格数据

Excel VBA中如何引用多个单元格数据
在excel中将单元格数据导入数据库，现在有一个字段取自多个单元格数据，我试了几次都不行，请问应该怎么写啊？？

我的部分代码：

Set   rs   =   New   Recordset
    sql1   =   "select   *   from   raise   WHERE   indate= ' "   &   UCase$(Cells(7,   3))   &   " '   and   week= ' "   &   UCase$(Cells(5,   5))   &   " '   and   depart= ' "   &   UCase$(Cells(3,   7))   &   " 'and   Devision= ' "   &   UCase$(Cells(3,   5))   &   " '   and   type= ' "   &   UCase$(Cells(i,   2))   &   " ' "
    '判断用户输入数据完整性
                If   IsExists(sql1)   Then
                        cellr1   =   "数据导入失败！ "
                        MsgBox   "今天你已经提报一次了，不能重复提报 "
                        cellr1.Interior.Color   =   255
                        ’改变单元格颜色以提示用户
                        GoTo   handler
                End   If
                Connector.BeginTrans
                sql   =   "select   *   from   raise "
                rs.Open   sql,   Connector,   adOpenDynamic,   adLockOptimistic,   adCmdText
                rs.AddNew
                rs.Fields( "stat ").Value   =   "1 "
                rs.Fields( "week ").Value   =   Cells(5,   5)
                ...   ...

现在一值grp要取3个单元数据（直接连接即可，无需处理）
                rs.fields( "grp ").Value   =   ???

[解决办法]
对Excel的单元格数据没有必要用ADO的方法去取得，直接以单元格中的数据就可以了。比如sheet1.cells(i,j).value，用一个for循环取得数据，然后再用ADO插入到外部的数据库。