Insertar HORA en vb.net a SQL SERVER

Sub InsertarHora()

        Try

            Dim CMD As New SqlCommand("insert into HORA(ID_TRABAJO, HORA)values(@ID_TRABAJO,@HORA)", CN)


            CMD.Parameters.Add(New SqlParameter("@ID_TRABAJO", SqlDbType.VarChar, 10))
            CMD.Parameters("@ID_TRABAJO").Value = txtIDControlTrabajo.Text

            CMD.Parameters.Add(New SqlParameter("@HORA", SqlDbType.DateTime))
            CMD.Parameters("@HORA").Value = CDate(txtHora.Text)

            CN.Open()

            If CMD.ExecuteNonQuery() Then

                CN.Close()

                Call actualizar()

                MsgBox("Registro ingresado Correctamente", MsgBoxStyle.Information, "Mensaje")

            Else
                MsgBox("Registro no se pudo agregar!")
            End If
        Catch ex As SqlException : MsgBox(ex.Message)
        End Try
    End Sub