Excel/ADO/RecordSet problem

Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
Dim rowCounter As Long
rowCounter = 0
cnn.Open "solidDB", "dba", "dba"
rst.ActiveConnection = cnn
rst.CursorLocation = adUseServer
rst.Source = "SELECT SNAME, SFIG, SITEM, SMONTH, SYEAR FROM YRYLESTABLE WHERE SYEAR = '2011'"
rst.Open
Do While Not rst.EOF
rowCounter = rowCounter + 1
If rowCounter = 1 Then
Worksheets("Sheet4").Cells(rowCounter, "A") = rst.Fields(0).Name
Worksheets("Sheet4").Cells(rowCounter, "B") = rst.Fields(1).Name ' shows column header OK...
Worksheets("Sheet4").Cells(rowCounter, "C") = rst.Fields(2).Name
Worksheets("Sheet4").Cells(rowCounter, "D") = rst.Fields(3).Name
Worksheets("Sheet4").Cells(rowCounter, "E") = rst.Fields(4).Name
rst.MoveNext
End If
If rowCounter >= 2 Then
Worksheets("Sheet4").Cells(rowCounter, "A").Value = rst.Fields(0).Value
Worksheets("Sheet4").Cells(rowCounter, "B").Value = rst.Fields(1).Value '<<< results an error...
Worksheets("Sheet4").Cells(rowCounter, "C").Value = rst.Fields(2).Value
Worksheets("Sheet4").Cells(rowCounter, "D").Value = rst.Fields(3).Value
Worksheets("Sheet4").Cells(rowCounter, "E").Value = rst.Fields(4).Value
rst.MoveNext
End If
Loop
rst.Close
Set rst = Nothing
Set cnn = Nothing