Not sure what your asking
dim r as long
r=3
Range("A" & r).Value

"sam" wrote:

Hi All,

How can I make multiple data for the same column go in access.

eg: here is what My excel table looks like:

Student_ID Subjects Grades

123456 Eng A
123456 Hist B
123456 Math B+
123456 Bio B-

here is what I have in access for recordset:

With rs
.AddNew
.Fields("Student_ID") = Range("A3").Value
.Fields("Subject") = Range("B3").Value
.Fields("Grades") = Range("C3").Value

.Update
End With
r = r + 1

Thanks in advance