Pass Oracle ADO data from VB6 to Excel

Dim rtnValue As String
Dim strReturn As String
Dim strSQL As String
Dim ado_rs As ADODB.Recordset
Dim o As Object
Dim Row As Integer
Dim strRange As String
Dim Rscolumn As Integer
Row = 1
Rscolumn = 0

Set o = CreateObject("excel.application")
strSQL= “Select Date as Date, part_number  as P/N, Location as Station, etc from TblLocation”

If fnPassSQL(strSQL, ado_rs) Then
      o.Visible = True
      o.Workbooks.Add   

      While Not ado_rs.EOF
        strRange = "A" & Row & ":A" & Row <------- it's so manual
        o.sheets("sheet1").range(strRange).value = ado_rs(Rscolumn)
        strRange = "B" & Row & ":B" & Row
        o.sheets("sheet1").range(strRange).value = ado_rs(Rscolumn + 1)
       Row = Row + 1
        ado_rs.MoveNext
      Wend
    End If