Existen varias formas una de ellas seria:
Dim Rec As ADODB.Recordset
Dim sql As String
Dim cnbase As ADODB.Connection
Sub Guardar()
Conectar 'Procedimiento
sql="Insert Into Alumnos(Codigo,Nombre,Apellido) Values (3,'Miguel','Otero')"
cnbase.Execute Sql
'Suponiendo que Teniamos 2 al Insertar Otro serian 3, haremos lo siguiente
sql="Select Count(*) As Total From Alumnos"
Registro 'Procedimiento
Rec.Open sql, cnbase
If Rec.RecordCount > 0 Then
Text1.Text=Rec!Total
End If
End Sub
Sub Registro()
If Rec.State = adStateOpen Then Rec.Close
Rec.CursorLocation = adUseClient
Rec.CursorType = adOpenDynamic
Rec.LockType = adLockOptimistic
End Sub
Sub Conectar()
Dim Ruta As String
Dim NomBase As String
NomBase = "BD.mdb" 'Nombre de la BD de ACCESS
Ruta = App.Path & "\" & NomBase 'Direccion donde se encuentra tu BD de ACCESS
Conexion = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Ruta & ""
Set cnbase = New ADODB.Connection
cnbase.ConnectionString = Conexion
cnbase.Open Conexion
Set Rec = New ADODB.Recordset
End Sub