Hola
samyy_g, concuerdo con lo que dice
Ka0stj, creo que lo necesitas es hacerlo asi :
Código vb:
Ver originalPrivate Sub Frmaltasocio_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
con.Open()
Dim Agregar As New OleDbCommand
Agregar.Connection = con
Agregar.CommandType = CommandType.Text
Agregar.CommandText = "Select MAX(CodSocio) As Maximo FROM Socios"
Maximo = Convert.toInt32(Agregar.ExecuteScalar()) + 1
TxtCodsocio.Text = Maximo
con.Close()
End Sub
Saludos!
.