vb.net与数据库的问题！！！！！急求！！！在线等！！！！！！
在从数据库中读取数据时，怎样控制单击事件使每次读出一条记录（上一条或下一条）望大虾给出这段代码，小弟入门不久实在写不出来。我的电脑改了名，系统和数据库就连不上了，那位高手给解决下。想把系统发布到internet上可总是不成功，那位指点迷津给一套好的方案。小弟不胜感激！！！！
[解决办法]
抱歉没看清题，我以为用年和月只能确定一条记录，原来是有不同的公司，能读到多条记录的。那么只需这样就好了。
Imports System.Data.SqlClient
Public Class Form1
Dim conn As SqlConnection
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim intCurrentIndex As Int32
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
conn = New SqlConnection(System.Configuration.ConfigurationManager.AppSettings( "strConn "))
conn.Open()
Dim strSQL As String = "select * from 月份数据动态表 where 年 = " & Year(Now) & " and 月 = " & Month(Now)
da = New SqlDataAdapter(strSQL, conn)
ds = New DataSet
da.Fill(ds) ' 把数据都读入DataSet，这样就不用一直从数据库中查询了
conn.Close()
' 把当前数据显示在TextBox中，一般是显示在DataGrid或DataGridView中
intCurrentIndex = ds.Tables(0).Rows.Count - 1
TextBox1.Text = ds.Tables(0).Rows(intCurrentIndex).ItemArray.ToString
Button2.Enabled = False
End Sub
Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
' 上移一条记录
Button2.Enabled = True
If intCurrentIndex > 0 Then
intCurrentIndex -= 1
TextBox1.Text = ds.Tables(0).Rows(intCurrentIndex).ItemArray.ToString
If intCurrentIndex = 0 Then
Button1.Enabled = False
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
' 下移一条记录
Button1.Enabled = True
If intCurrentIndex < ds.Tables(0).Rows.Count - 1 Then
intCurrentIndex += 1
TextBox1.Text = ds.Tables(0).Rows(intCurrentIndex).ItemArray.ToString
If intCurrentIndex = ds.Tables(0).Rows.Count - 1 Then
Button1.Enabled = False
End If
End If
End Sub
End Class
