Hola amigo, deberías de explicarte un poquito mejor.. porque no mucho capto tu idea.
Bueno, yo te hice acá un ejemplo sencillo a ver si es esto lo que quieres. Si es así espero te sirva..
El ejemplo está con un formulario, un textbox y un botón para agregar el text del textbox a la base de datos.
Cuando haces click en el botón hace una consulta a la tabla para ver si hay mas de 3 registros almacenados. Si lo hay se bloquearán el textbox y el botón. De lo contrario se registrará en la base de datos.
Código:
Dim con As SqlConnection = New SqlConnection(cadena)
con.Open()
Dim sql1 As String = "select * from nombre_de_tabla"
Dim comando1 As New SqlCommand(sql1, con)
Dim tabla As New DataTable
Dim dato As New SqlDataAdapter(selectCommand:=comando1)
dato.Fill(tabla)
If (tabla.Rows.Count >= 3) Then
TextBox1.Text = ""
TextBox1.Enabled = False
Button1.Enabled = False
MsgBox("Ya existen 3 administradores")
Else
Dim sql2 As String = "insert into nombre_de_tabla values ('" + TextBox1.Text + "')"
Dim comando2 = New SqlCommand(sql2, con)
comando2.ExecuteNonQuery()
MsgBox("Usuario administrador agregado exitosamente")
TextBox1.Text = ""
End If
con.Close()
Suerte!!
Saludos...