Duda con datagrid

[david1981]

Tengo un problema y es el siguiente.

Quiero que en un datagrid me salga en la fila una serie de nombres y en las columnas, los dias del mes.

Una cosa asi:

Trabajador | 02/08/2004 | 03/08/2004 | 04/08/2004 .......
Pedro
Maria
...

este es el codigo que utilizo:

Private Function actualiza(ByVal oComando As DataSet) As DataSet
Dim pConexionOledb As OleDbConnection
Dim sCadena As String
Dim pPoner As OleDbCommand
Dim oDataAdapter As OleDbDataAdapter
Dim oCB As OleDbCommandBuilder
Dim oDataSet As DataSet
Dim agrega As DataSet
Dim Seleccion As String
Dim oDS As DataSet
Dim iDiasMes As Integer
Dim iData As Integer
Dim i As Integer = 1
Dim dFormatNormal As Date
Dim Fechas As String

oDS = New DataSet 'creamos el dataset
oDS.Tables.Add("Exportar")
' 1. Calcular el número de días que tiene el mes
iDiasMes = Me.DiasDelMes(Now.Month)
For i = 1 To iDiasMes
iData = Now.Year * 10000 + (Now.Month) * 100 + i
dFormatNormal = Japo2DateTime(iData)
If dFormatNormal.DayOfWeek <> DayOfWeek.Saturday And _
dFormatNormal.DayOfWeek <> DayOfWeek.Sunday Then
Fechas = Format("dd/mm/yyyy", dFormatNormal)
oDS.Tables(0).Columns.Add(Fechas)
Seleccion = "SELECT * from Exportar"
End If
Next
sCadena = "Provider=Microsoft.jet.oledb.4.0;Data source=" & "c:\Horario.mdb"
pConexionOledb = New OleDbConnection
pConexionOledb.ConnectionString = sCadena

'ponemos las filas
Dim pRow As DataRow
Dim j As Integer
oDS = Conexion.Seleccion("Select Trabajador from Informacion order by Codigo")
For j = 0 To oDS.Tables(0).Rows.Count - 1
pRow = oDS.Tables(0).NewRow
oDS.Tables(0).Rows.Add(pRow)
Next

'crear adaptador
oDataAdapter = New OleDbDataAdapter(Seleccion, pConexionOledb)

'contamos el numero de columnas, ha de devolver las mismas columnas que dias del mes
Dim iColumnas As Integer
iColumnas = oDS.Tables(0).Columns.Count
iColumnas = oDS.Tables(0).Rows.Count

'crear comandbuilder
oCB = New OleDbCommandBuilder(oDataAdapter)

'asignar dataset al datagrid
Me.UltraGrid1.DataSource = oDS
Me.UltraGrid1.DataBind()
Return oDS
End Function

Con esto lo unico que me sale son las filas de los nombre, pero si hago algunos cambios, me sale los dias del mes, pero todo junto no me ha salido, supongo que faltará algo, pero no se lo que es. Si alguién me pudiera ayudar...