Indsætning af : imellem nogle tal

Dim withcolon = tb.Text.Substring(0, 2) & ":" & _
                        tb.Text.Substring(2,2) & ":" & _
                        tb.Text.Substring(4,2)
        Dim dt As DateTime = DateTime.Parse(withcolon)

der bliver indsat nogle fine colonner ind men access vil stadigvæk ikke godtage det

du får lige koden, så kan det være at du kan hjælpe mig

    Dim løber As New Enkeltloeber

    Private Sub frmindtasttidherrer_Closing(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles MyBase.Closing
        e.Cancel = True
        Me.Hide()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        IndlæsløberListe("select nr,navn,adresse from almen where nr like '%" & TextBox1.Text & "%'")
    End Sub

    Sub IndlæsløberListe(Optional ByVal SQL As String = "select nr,navn,adresse from Almen")
        Dim Resultat As New DataSet
        Resultat = SQLselect(SQL)
        DataGrid1.DataSource = Resultat
        DataGrid1.DataMember = "Table"
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim nr As Integer
        nr = DataGrid1.Item(DataGrid1.CurrentRowIndex, 0)
        løber.nr = nr
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Hide()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim withcolon = TextBox2.Text.Substring(0, 2) & ":" & _
                        TextBox2.Text.Substring(2, 2) & ":" & _
                        TextBox2.Text.Substring(4, 2)
        løber.tid = DateTime.Parse(withcolon)
        SQLupdate("update almen set tid='" & løber.tid.ToString & "'where nr =" & løber.nr)
        Me.Hide()

    End Sub

jeg har også prøvet at gøre det uden tostring

  Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim withcolon = TextBox2.Text.Substring(0, 2) & ":" & _
                        TextBox2.Text.Substring(2, 2) & ":" & _
                        TextBox2.Text.Substring(4, 2)
        løber.tid = DateTime.Parse(withcolon)
        SQLupdate("update almen set tid='" & løber.tid & "'where nr =" & løber.nr)
        Me.Hide()

Kan man i øvrigt sende et tidspunkt til databasen uden dato.

det skal helst være et tidspunkt uden dato da det er en løbstid der skal registreres

Har du prøvet:

SQLupdate("update almen set tid='" & withcolon & "'where nr =" & løber.nr)

?

ja jeg har prøvet den linie og jeg får følgende fejlmeddelese:
An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.data.dll

tak for hjælpen