ดูให้หน่อยนะคะต้องการให้ตัวเลขรันตามลำดับอัตโนมัติคะแต่มันผิดอยู่....คิดไม่ออกแล้วว่าจะแก้ยังไงรบกวนผู้รู้ช่วยดูให้หน่อยนะคะขอบคุณมากๆคะ

Sub LoadData()
        Dim connect As SqlConnection = getDriver()

        Dim sqlString = ("select max(ID_refer) as MaxID_refer from send_Refer")

        Dim sqlCom As SqlCommand = New SqlCommand(sqlString, connect)
        connect.Open()

        Dim reader As SqlDataReader = sqlCom.ExecuteReader()
        reader.Read()

        Dim ID As String = reader("MaxID_refer").ToString()

        reader.Close()

        Dim IDMax As Integer = CInt(ID) + 1

        If IDMax < 10 Then
            txtID.Text = "0000" + IDMax.ToString()
        ElseIf IDMax >= 10 And IDMax <= 99 Then
            txtID.Text = "000" + IDMax.ToString()
        ElseIf IDMax >= 100 And IDMax <= 999 Then
            txtID.Text = "00" + IDMax.ToString()
        ElseIf IDMax >= 1000 And IDMax <= 9999 Then
            txtID.Text = "0" + IDMax.ToString()
        Else
            txtID.Text = IDMax.ToString()
        End If

        txtdate.Text = Date.Now().Date

        connect.Close()
    End Sub