Ok,
well a very experienced Access programmer has given me the following code,
Private Function retpc(v) As String
retpc = IIf(Asc(Mid(v, 2, 1)) >= 48 And Asc(Mid(v, 2, 1)) <= 57, Left(v, 1), Left(v, 2))
End Function
Public Sub asd()
Dim sql$, rs As New ADODB.Recordset, cn As New...