I have code like that
Code:
Call koneksi()
        cmd = New OleDbCommand("select * from customer order by nid_c desc", conn)
        dr = cmd.ExecuteReader
        dr.Read()
        If Not dr.HasRows Then
            cusnid.Text = "CR" + "00001"
        Else
            cusnid.Text = Val(Microsoft.VisualBasic.Mid(dr.Item("nid_c").ToString, 3, 4)) + 1
            If Len(cusnid.Text) = 1 Then
                cusnid.Text = "CR0000" & cusnid.Text & ""
            ElseIf Len(cusnid.Text) = 2 Then
                cusnid.Text = "CR000" & cusnid.Text & ""
            ElseIf Len(cusnid.Text) = 3 Then
                cusnid.Text = "CR00" & cusnid.Text & ""
            ElseIf Len(cusnid.Text) = 4 Then
                cusnid.Text = "CR0" & cusnid.Text & ""
            ElseIf Len(cusnid.Text) = 5 Then
                cusnid.Text = "CR" & cusnid.Text & ""

            End If
        End If
when the number on "CR10000" cannot increase to --> CR10001
help me..
thanks