Error TexBox autonumerico

[Carlojas]

Que tal samyy_g, si deseas recuperar los datos que te devuelve tu consulta debes usar el metodo OleDbCommand.ExecuteReader. Te paso un ejemplo de como quedaría tu código.

Código vb:

con.Open()
Dim Agregar As New OleDbCommand
Agregar.Connection = con
Agregar.CommandType = CommandType.Text
Agregar.CommandText = "Select MAX(CodSocio) As Maximo FROM Socios"
Dim Lector As OleDbDataReader = Agregar.ExecuteReader()
While Lector.Read()
  TxtCodsocio.Text = Lector(0).ToString() + 1         
End While
con.Close()
 

Saludos.