how to insert only current time in sql2005 using vb.net

See more:

SQL-Server-2005

VB

SQL-Server

Respected sir/mam

I want to insert current time in my database but there is accrued a error at time field. I dnt understand how to insert time in database pls help me.
following is my code

 Try

            Dim cb As New OdbcCommandBuilder(da)
            Dim dsNewRow As DataRow

            dsNewRow = ds.Tables("Add").NewRow()

            dsNewRow.Item("id") = no
            dsNewRow.Item("vehicleNo") = txtlVin.Text
            dsNewRow.Item("challanNo") = txtlChno.Text
            dsNewRow.Item("itemName") = txtlItmNm.Text
            dsNewRow.Item("quantity") = txtlQty.Text
            dsNewRow.Item("CustName") = txtlCustNm.Text
            dsNewRow.Item("site") = txtlSite.Text
            dsNewRow.Item("indate") = System.DateTime.Now.ToString((" yyyy-MM-dd")) 'Date.Today

            dsNewRow.Item("intime") = TimeOfDay

            dsNewRow.Item("intype") = "LOAD"
            dsNewRow.Item("inout") = "IN"

            ds.Tables("Add").Rows.Add(dsNewRow)
            da.Update(ds, "Add")

            MsgBox("New Record added to the Database")
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            cn.Close()
            da.Dispose()
            ds.Dispose()
        End Try

thank u in advance