Urgente!! Repuperar Campo

[RootK]

Puedes usar un datareader.. y si estas usando sqlserver te podría quedar así..:

Dim oConn As New SqlConnection("server=nombreServidor;uid=user;pwd= password;database=NombreBD;connect timeout=2400")
Dim SQLverClient As String = "SELECT rut FROM Cliente_Internet WHERE campo = 1"
Dim cmd As New SqlCommand(SQLverClient, oConn)

Dim RSVerCliente As SqlDataReader = cmd.ExecuteReader

If RSVerCliente.Read Then
Rut = CDbl(RSVerCliente("rut"))
End If

RSVerCliente.Close()
oConn.Close()

Salu2