Leer Formato Hora Excel vb.net

Question

Buenas. Tengo un soft. desarrollado en visual studio 2008. El tema es que mi cliente posee datos en excel y una columna tiene el dato hora con el formato 03:00:00 .... yo al leer desde el visual studio me toma con fecha y hora..... y lo que quiero es como hacer para almacenarlo como 03:00. porque lo almaceno como string.... y me almacena 30/12 o sea me esta tomando la primera parte de la fecha no de la hora... saben como resolver esto....

Gracias

Dim Excel As New DataSet
        Dim DataTable As DataTable = Excel.Tables.Add("Resultado")
        Dim col1 As DataColumn = DataTable.Columns.Add("Partida", Type.GetType("System.Int32"))
        Dim col2 As DataColumn = DataTable.Columns.Add("Propietario", Type.GetType("System.String"))
        Dim col3 As DataColumn = DataTable.Columns.Add("HectareasPermanente", Type.GetType("System.Double"))
        Dim col4 As DataColumn = DataTable.Columns.Add("HectareasPREA", Type.GetType("System.Double"))
        Dim col5 As DataColumn = DataTable.Columns.Add("HectareasPRED", Type.GetType("System.Double"))
        Dim col6 As DataColumn = DataTable.Columns.Add("DiaInicio", Type.GetType("System.String"))
        Dim col7 As DataColumn = DataTable.Columns.Add("HoraInicio", Type.GetType("System.String"))
        Dim col8 As DataColumn = DataTable.Columns.Add("DiaFinal", Type.GetType("System.String"))
        Dim col9 As DataColumn = DataTable.Columns.Add("HoraFinal", Type.GetType("System.String"))
        Dim col10 As DataColumn = DataTable.Columns.Add("Caudal", Type.GetType("System.Double"))
        Dim col11 As DataColumn = DataTable.Columns.Add("HectareasTotalCultivo1", Type.GetType("System.Double"))
        Dim col12 As DataColumn = DataTable.Columns.Add("Cultivo1PS", Type.GetType("System.Double"))
        Dim col13 As DataColumn = DataTable.Columns.Add("Cultivo1S", Type.GetType("System.Double"))
        Dim col14 As DataColumn = DataTable.Columns.Add("HectareasTotalCultivo2", Type.GetType("System.Double"))
        Dim col15 As DataColumn = DataTable.Columns.Add("Cultivo2PS", Type.GetType("System.Double"))
        Dim col16 As DataColumn = DataTable.Columns.Add("Cultivo2S", Type.GetType("System.Double"))
        Dim col17 As DataColumn = DataTable.Columns.Add("HectareasTotalCultivo3", Type.GetType("System.Double"))
        Dim col18 As DataColumn = DataTable.Columns.Add("Cultivo3PS", Type.GetType("System.Double"))
        Dim col19 As DataColumn = DataTable.Columns.Add("Cultivo3S", Type.GetType("System.Double"))
        '***************************************************************
        Dim conexion As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & RutaArchivo & ";Extended Properties=Excel 8.0")
        Dim da As New OleDbDataAdapter("select * from  [hoja1$]", conexion)
        Dim ds As New DataSet
        da.Fill(ds, "Resultado")
        Dim i As Integer
        For i = 0 To ds.Tables("Resultado").Rows.Count - 1
            Dim row As DataRow = DataTable.NewRow()
            If IsDBNull(ds.Tables(0).Rows(i).Item("Partida")) = False Then
                row("Partida") = UCase(ds.Tables("Resultado").Rows(i).Item("Partida"))
            Else
                row("Partida") = 0
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("Propietario")) = False Then
                row("Propietario") = UCase(ds.Tables("Resultado").Rows(i).Item("Propietario"))
            Else
                row("Propietario") = ""
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("Permanente")) = False Then
                row("HectareasPermanente") = ds.Tables("Resultado").Rows(i).Item("Permanente")
            Else
                row("HectareasPermanente") = 0
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("PREA")) = False Then
                row("HectareasPREA") = ds.Tables("Resultado").Rows(i).Item("PREA")
            Else
                row("HectareasPREA") = 0
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("PRED")) = False Then
                row("HectareasPRED") = ds.Tables("Resultado").Rows(i).Item("PRED")
            Else
                row("HectareasPRED") = 0
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("Dia Inicio")) = False Then
                row("DiaInicio") = ds.Tables("Resultado").Rows(i).Item("Dia Inicio")
            Else
                row("DiaInicio") = ""
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("Hora Inicio")) = False Then
                row("HoraInicio") = ds.Tables("Resultado").Rows(i).Item("Hora Inicio")
            Else
                row("HoraInicio") = ""
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("Dia Final")) = False Then
                row("DiaFinal") = ds.Tables("Resultado").Rows(i).Item("Dia Final")
            Else
                row("DiaFinal") = ""
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("Hora Final")) = False Then
                row("HoraFinal") = ds.Tables("Resultado").Rows(i).Item("Hora Final")
            Else
                row("HoraFinal") = ""
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("Caudal")) = False Then
                row("Caudal") = ds.Tables("Resultado").Rows(i).Item("Caudal")
            Else
                row("Caudal") = 0
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("HectareasTotalCultivo1")) = False Then
                row("HectareasTotalCultivo1") = ds.Tables("Resultado").Rows(i).Item("HectareasTotalCultivo1")
            Else
                row("HectareasTotalCultivo1") = 0
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("Cultivo1PS")) = False Then
                row("Cultivo1PS") = ds.Tables("Resultado").Rows(i).Item("Cultivo1PS")
            Else
                row("Cultivo1PS") = 0
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("Cultivo1S")) = False Then
                row("Cultivo1S") = ds.Tables("Resultado").Rows(i).Item("Cultivo1S")
            Else
                row("Cultivo1S") = 0
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("HectareasTotalCultivo2")) = False Then
                row("HectareasTotalCultivo2") = ds.Tables("Resultado").Rows(i).Item("HectareasTotalCultivo2")
            Else
                row("HectareasTotalCultivo2") = 0
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("Cultivo2PS")) = False Then
                row("Cultivo2PS") = ds.Tables("Resultado").Rows(i).Item("Cultivo2PS")
            Else
                row("Cultivo2PS") = 0
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("Cultivo2S")) = False Then
                row("Cultivo2S") = ds.Tables("Resultado").Rows(i).Item("Cultivo2S")
            Else
                row("Cultivo2S") = 0
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("HectareasTotalCultivo3")) = False Then
                row("HectareasTotalCultivo3") = ds.Tables("Resultado").Rows(i).Item("HectareasTotalCultivo3")
            Else
                row("HectareasTotalCultivo3") = 0
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("Cultivo3PS")) = False Then
                row("Cultivo3PS") = ds.Tables("Resultado").Rows(i).Item("Cultivo3PS")
            Else
                row("Cultivo3PS") = 0
            End If
            If IsDBNull(ds.Tables(0).Rows(i).Item("Cultivo3S")) = False Then
                row("Cultivo3S") = ds.Tables("Resultado").Rows(i).Item("Cultivo3S")
            Else
                row("Cultivo3S") = 0
            End If
            DataTable.Rows.Add(row)
        Next

---

Dante Tagliavini