Private Sub Command1_Click()
Dim z As String
z = F_codigo

dbConex.Execute ("INSERT INTO Cliente VALUES('" & z & "','" & .Text2.Text & "')")

End Sub

Function F_codigo()
Dim zPlus As String
  
  Set rsAcumulador = dbConex.Execute("SELECT autoEmp FROM acumulador")

  zPlus = 0
  rsAcumulador.MoveLast
  zPlus = rsAcumulador(0) + 1
  zPlus = Format(Val(zPlus), "00")

  dbConex.Execute "UPDATE acumulador SET autoEmp='" & Trim(zPlus) & "'"
  F_codigo = zPlus

End Function

Option Explicit
Public cn As New Connection

Private Sub Form_Load()
  cn.CursorLocation = adUseClient
  cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\bd_01.mdb;Password=;Persist Security Info=false"
End Sub

Private Sub Command1_Click()
Dim Listado As ADODB.Command
Dim Entorno As dteEntornoDatos
    Set Entorno = New dteEntornoDatos
    Entorno.Listados.ConnectionString = cn.ConnectionString
    Set Listado = Entorno.Commands("command1_grouping")
    Listado.CommandType = adCmdText
    Listado.CommandText = "SHAPE{SELECT P.idprod,P.nomprod,P.idcat,C.nomcat FROM Producto P, Categoria C" & _ 
" WHERE C.idcat=P.idcat}AS command1 COMPUTE command1 BY 'idcat',nomcat"
    DataReport1.Show
End Sub