Quiero usar la funcion de esta manera y no se como retornar el valor de la variable dentro de la funcion
Código:
Private Sub Form_Load()
Text1 = Generar_codigo
End Sub
Código:
Function Generar_codigo()
Set rsAcumulador = New Recordset
rsAcumulador.Open "SELECT * FROM acumulador", dbConex, adOpenStatic, adLockOptimistic
Dim acum As Integer
acum = 0
rsAcumulador.MoveLast
acum = rsAcumulador("acuEmp") + 1
'como retorno el valor de la variable acum
'return acum
End Function