Ayuda con campo alfanumérico para guardar un consecutivo

Buen día:

Si alguien me pudiera ayudar u orientar necesito hacer un código alfanumérico que se valla incrementando según se va guardando esto es con una bd access 2010 y vb 2010 aquí anexo el fragmento de código que tengo solo que me envía un error que la conversión de la cadena " " en el tipo interger no es valida

Try
Dim cadena As String
Dim cnn As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Presupuesto.accdb")
Dim cmd As New OleDb.OleDbCommand("Select Max(No_partida) As MaxId FROM Partida", cnn)
cnn.Open()
Dim MaxId As Integer = CInt(cmd.ExecuteScalar.ToString)
cadena =
"PAR".ToString
No_partidaTextBox.Text = cadena.ToString +
CStr(MaxId + 1)
cnn.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

o si alguien pudiera decirme como lo puedo hacer tal vez de otra forma se los agradeceré

Saludos y gracias