Moveprevious

Private Sub Indietro_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Indietro.Click
Dim sql As String = "SELECT TOP 1 * FROM authors WHERE au_id < (" & txtOut.Text & ") ORDER BY au_id DESC"
Dim cmd As New OleDbCommand(sql, cn)
Dim dr As OleDbDataReader = cmd.ExecuteReader
dr.Read()
txtOut.Text = dr(0)
txtOut1.Text = dr(1)
dr.Close()
End Sub