Inserting data in Excel

How can I insert data fra an array into Excel by using only one database connection? I have an array named dimen(20), how can I insert the values of this in Excel?

I know how to execute sql commands e.g:

Code:

---

Protected Sub medieDimension()
        Dim strCn As String = "Provider=Microsoft.jet.oledb.4.0;"
        strCn += "Data Source=" & Server.MapPath("priser04.MDB") & ";"
        Dim strSql As String = "Select * FROM medieDim WHERE matId=1"
        Dim strResultsHolder As Integer = 0

        Dim objConnection As New OleDbConnection(strCn)
        Dim objCommand As New OleDbCommand(strSql, objConnection)
        Dim objDataReader As OleDbDataReader

        objConnection.Open()
        objDataReader = objCommand.ExecuteReader()

        For i = 0 To objDataReader.FieldCount
            Do While objDataReader.Read() = True
                medieDim(i) = objDataReader("dimension")
                i += 1
            Loop
        Next

        objDataReader.Close()
        objConnection.Close()
    End Sub

---