Escribir registros en la base de datos y validar

[KenMasters]

Pues, para darte una idea, primero realizas una consulta que revise si el nombreagr.text ya se encuentra en la DB, algo asi


Primero declara en laparte superior de la ventana, arriba de todos los sub's lo siguiente

Código vb:

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
dim rs2 as new adodb.recordset
 

Luego en el evento donde quieras puede ser en un command va lo siguiente

Código vb:

Private Sub Command2_Click()
Set cn = New ADODB.Connection
    With cn
        .Provider = "Microsoft.ACE.OLEDB.12.0"
        .ConnectionString = "Data Source = " & App.Path & "\agenda.accdb"
        .Open
    End With
 
 
Set rs = New Recordset
rs.Open "select id from usuarios where id=" & nombreagr.text & "", cn, adOpenDynamic, adLockOptimistic
 If rs.RecordCount <> 0 Then
  ' aqui va lo que quieres que haga si es que existe el registro
  msgbox "el registro ya existe por favor intente con otro"
  end
 else
  ' aqui va el codigo para guardar en la DB osea seria otro rs2, en donde haces el insert.
 Set rs2 = New Recordset
 rs2.Open "Insert.... consulta de insert", cn, adOpenDynamic, adLockOptimistic
 end if
 
End Sub