Hola, si es autonumerico, definelo en tu BD como tipo de dato autonumérico (Access) y en SQL de tipo INT incrementado en 1...
cnCon.Execute ("INSERT INTO Contacto (IdCliente,Nombre,Aut)VALUES (" & CLng(idCliente) & ",'" & Me.Contactos.Item(i).Nombre & "',' & Me.Contactos.Item(i).Aut & ')")
Código:
Dim Sql as String
sql = "INSERT INTO Contacto (IdCliente, Nombre, Aut) VALUES ( definicion de tus controles)"
cnCon.Execute sql
A lo que me refiero que el aut se incrementará sólo, define bien tu control para guardar datos tipo numérico ...
para consultar
Código:
rs.open "SELECT campo FROM contacto WHERE campo = condicion", , cn, adOpenStatic, adLockOptimistic
If (rs.BOF And rs.EOF) Then
MsgBox "Dato no encontrado"
rs.close
Else
txttipoaut.Text = rs!aut
End If