Excel VBA中如何引用多个单元格数据

Question

在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 = ???

Answer 1

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

Answer 2

楼上主意不错，可是现在只差这个字段的读取了！
我试
rs.fields("grp").Value = UCase$(Cells(7, 3)) + UCase$(Cells(3, 5)) + UCase$(Cells(3, 7))怎么不行啊？