Code:Function autogen() As String Dim cnview As New ADODB.connection Dim rsview As New ADODB.Recordset Call connection(cnview, App.Path & "\Medrar.mdb", "endromida") 'Call connection(cnview, "\\mika\medrar\Medrar.mdb", "endromida") Call Recordset(rsview, cnview, "SELECT max(cusno)FROM Customer") If rsview.EOF Or Not Null Then autogen = "C-0000" Else autogen = "C-" & Format(Right$(Trim$(rsview(0)), 4) + 1, "0000") --> In this Lines End If End Function