อยากได้ Auto id เป็นอักษร อ่ะครับ ของผมมันไม่นับ เลย หรือช่วยดูให้หน่อยทำไมไม่นับเป็นที่อะไร

Sub AutoID_customers_Warranty_ID()
        Dim dtSet As New DataSet
        Sql = " select  max(customers_Warranty_ID) as maxid  from customers "

        DA = New SqlDataAdapter(Sql, cn)
        DA.Fill(dtSet, "dtcustomers")

        Dim oldID As String
        oldID = dtSet.Tables("dtcustomers").Rows(0).Item("maxid")
        ' oldID มีค่าเป็น M010+1
        '2. บวก +1
        Dim newID As Integer
        newID = Val(Mid(oldID, 2, 3)) + 1
        'newID = 100 + 1 = M101

        '3. แสดงรหัสใหม่ 
        If Len(newID.ToString) = +1 Then
            txt_1.Text = "CWI2713-5002" & newID
        ElseIf Len(newID.ToString) = 2 Then
            txt_1.Text = "CWI2713-500" & newID
        ElseIf Len(newID.ToString) = 3 Then
            txt_1.Text = "CWI2713-50" & newID
        End If






Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Sql = "Insert Into customers( customers_Warranty_ID) values ('" & txt_1.Text & "')"


        Dim objCmd As SqlCommand
        cn.Open()
            objCmd = New SqlCommand(Sql, cn)
            objCmd.ExecuteNonQuery()

        cn.Close()



        AutoID_customers_Warranty_ID()

        load_customers()
        Return



    End Sub