Ajuda em DataSource

[hypz]

Dim cod_cart, nome_util, nick, data_nasc, mail, tipocart, mont, login, pass, bi, nrcont, codpost, morada As String
	Dim a As String
	Dim provider As String
	provider = "provider = Microsoft.ACE.OLEDB.12.0;Data Source=Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Documents and Settings\hypz\Ambiente de trabalho\pap_teste.accdb; persist security info = false;"
	Dim con As New OleDbConnection(provider)
	con.Open()
	Dim sql As String = "Select * from Utilizador where Cod_Cartao=" & cod_cart

	If a <= cod_cart Then
		Dim da As OleDbDataAdapter
		da = New OleDbDataAdapter(sql, con)
		Dim ds As DataSet
		ds = New DataSet()
		da.Fill(ds)

		cod_cart = ds.Tables(0).Rows(0)("Cod_Cartao").ToString()
		nome_util = ds.Tables(0).Rows(0)("Nome_Utilizador").ToString()
		nick = ds.Tables(0).Rows(0)("Nick_Utilizador").ToString()
		data_nasc = ds.Tables(0).Rows(0)("Data_Nascimento").ToString
		mail = ds.Tables(0).Rows(0)("Email").ToString
		tipocart = ds.Tables(0).Rows(0)("Cod_TipoCartao").ToString
		mont = ds.Tables(0).Rows(0)("Montante_Disponivel").ToString
		login = ds.Tables(0).Rows(0)("Login").ToString
		pass = ds.Tables(0).Rows(0)("Password").ToString
		bi = ds.Tables(0).Rows(0)("BI").ToString
		nrcont = ds.Tables(0).Rows(0)("Numero_Contribuinte").ToString
		codpost = ds.Tables(0).Rows(0)("Cod_Postal").ToString
		morada = ds.Tables(0).Rows(0)("Morada").ToString

		TextBox1.Text = cod_cart
		TextBox2.Text = nome_util
		TextBox3.Text = nick
		DateTimePicker1.MaxDate = data_nasc
		TextBox5.Text = mail
		TextBox6.Text = tipocart
		TextBox7.Text = mont
		TextBox8.Text = login
		TextBox9.Text = pass
		TextBox10.Text = bi
		TextBox11.Text = nrcont
		TextBox12.Text = codpost
		TextBox13.Text = morada
	End If
	con.Close()

Boas, eu estou a fazer um botão para ver o próximo registo, e sei que tenho que fazer um If para ver se o valor "a" é maior que o código de cartão, se for mostra o próximo registo, só que não sei onde estou a errar.

Edited June 6, 2012 at 09:32 AM by Caça

[petvetbr]

Boas, eu estou a fazer um botão para ver o próximo registo, e sei que tenho que fazer um If para ver se o valor "a" é maior que o código de cartão, se for mostra o próximo registo, só que não sei onde estou a errar.

você está usando isto:

a <= cod_cart

quando maior que é assim:

a >cod_cart

[hypz]

Continua a não funcionar. Eu quero fazer isto "Me.NOMEdaTABELABindingSource.MovePrevious()"

mas manualmente..