Como recorro un campo en orden

[julianserna]

Con este codigo trato de para al siguiente dato en el campo cod_s pero no se si esté bien diseñado.


Private Sub cmdnext_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdnext.Click
Dim selectsql As String
selectsql = "select * from tbl_banner order by cod_s"
Dim con As New OleDb.OleDbConnection(connectionstring)
Dim cmd As New OleDb.OleDbCommand(selectsql, con)
Dim reader As OleDb.OleDbDataReader
'se intenta abrir la base de datos y leer la informacion
con.Open()
reader = cmd.ExecuteReader()
Do While reader.Read()
If reader("cod_s") > txtid.Text Then
txtid.Text = reader("cod_s")
txturl.Text = reader("link_url_s")
txtdesceng.Text = reader("text_eng_s")
txtdescspa.Text = reader("text_spa_s")
'imgban.ImageUrl = reader("logo_s")
Exit Do
End If
Loop
reader.Close()
'se cierra la conexion a la base de datos
If (Not con Is Nothing) Then
con.Close()
End If
actualizar_vista()
End Sub