¿Cómo puedo hacer para que se genere un código alfanumérico en vb6.0 con bd conectada a access?

me gustaría que al momento de que al momento que se grabe un registro me genere un nuevo código alfanumérico.

He utilizado el siguiente código para que al momento de grabar se genere uno nuevo código y siga consecutivamente pero no me a funcionado:

Dim codigo As New ADODB.Recordset

código.Open "select * from USUARIO", DATA.CONEXIÓN, adOpenDynamic, adLockReadOnly
Label10.Caption = "U" + String(código!CODUSUARIO + 1, "0000")

Gracias de antemano