ถ้าต้องการให้รหัสเป็นแบบ 000001/DB มีวิธีเขียนโค้ดยังไงคะ VB10 (มือใหม่จับผิดจับถูกทำไม่ได้เลยค่ะ)

Private Sub Debit_ID()
   Dim sql As String = "Select max(Debit_ID) from Debit"
   Dim com As New OleDbCommand(sql, conn)
   Dim max As Integer = com.ExecuteScalar

   If max > 0 Then

      txtDebitID.Text = AddPrefix(max+1,'0',7) & "DB"
   Else
      txtDebitID.Text = "0000001DB"
   End If
End Sub

Public Function AddPrefix(ByVal txt As String, ByVal Header As String, ByVal len As Integer) As String
        Do While txt.Length < len
            txt = Header & txt
        Loop
        Return txt
End Function