Please go through my code below:

This is my objective: I am trying to execute two different SQL statements
and populate the output of each statement in two worksheets - Sheet1, Sheet2.

I am able to populate Sheet1 with the information. However, I see a blank
Sheet2 when this macro executes.

Can anyone tell me what the problem is?

Thanks much for your time!
__________________________________________________ ______________



Public Sub test()

Dim db As Database, rs As Recordset


Dim targetrange As Range

Set db = OpenDatabase("c:\abc.mdb", False, True, "MS Access;PWD=12345")
Set rs = db.OpenRecordset("select * from goal")


Set targetrange = Range("a1")
Set targetrange = targetrange.Cells(1, 1)


For i = 0 To rs.Fields.Count - 1
targetrange.Offset(0, i).Value = rs.Fields(i).Name
Next


' write recordset
colCounter = 0
rowCounter = 1
targetrange.Offset(rowCounter, colCounter).CopyFromRecordset rs



Sheets("Sheet2").Select

Set rs = db.OpenRecordset("select territory from goal")
Set targetrange = Range("a1")
Set targetrange = targetrange.Cells(1, 1)


For i = 0 To rs.Fields.Count - 1
targetrange.Offset(0, i).Value = rs.Fields(i).Name
Next


' write recordset
colCounter = 0
rowCounter = 1
targetrange.Offset(rowCounter, colCounter).CopyFromRecordset rs
Set rs = Nothing



db.Close
Set db = Nothing
End Sub