关于vb.net的数据读取问题 求高手给点帮助 我实在是不会了！！！！！！！！！
Dim conn As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings( "strConn "))
Dim sql As String = "select * from 月份数据动态表 where 年 = " & Year(Now) & " and 月 = " & Month(Now)
Dim comm As SqlCommand = New SqlCommand(sql, conn)
conn.Open()
Dim rs As SqlDataReader = comm.ExecuteReader()

这是我的程序的开头 我想实现读上一条记录 还有读下一条 分别怎么写
希望大家帮忙啊！！！！！！！！


数据库连接上了 但是发现程序没法保存了 看了程序不知道那里出了问题 现在把保存那部分代码写出来望高手讲解修改 我用的是vb.net。。
Protected Sub abc_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles abc.Click
If Session( "safepage_exist ") = 0 Then
If dieg.Text = " " Or diew.Text = " " Or gbhg.Text = " " Or gbhw.Text = " " Or boog.Text = " " Or boow.Text = " " Or firez.Text = " " Or firey.Text = " " Or envirz.Text = " " Or enviry.Text = " " Then
msg.Text = "请将信息填写完整! "
Return
End If
Dim conn As New SqlConnection(System.Configuration.ConfigurationManager.AppSettings( "strConn "))
conn.Open()
Dim strSelect As String = "select * from 月份数据动态表 where 企业名称= ' " & Session( "企业名称 ") & " ' and 年 = " & Year(Now) & " and 月 = " & Month(Now)
Dim adp As New SqlDataAdapter(strSelect, conn)
Dim ds As New DataSet()
adp.Fill(ds, "月份数据动态表 ")
Dim dt As DataTable = ds.Tables( "月份数据动态表 ")

Dim dr As DataRow
dr = dt.NewRow()
dr( "企业名称 ") = qy.Text
dr( "年 ") = y.Text
dr( "月 ") = m.Text
dr( "企业名称 ") = qy.Text
dr( "公司员工死亡 ") = dieg.Text
dr( "外包工死亡 ") = diew.Text
dr( "公司员工重伤 ") = gbhg.Text
dr( "外包工重伤 ") = gbhw.Text
dr( "公司员工轻伤 ") = boog.Text
dr( "外包工轻伤 ") = boow.Text
dr( "重大火灾 ") = firez.Text
dr( "一般火灾 ") = firey.Text
dr( "重大环保危害 ") = envirz.Text
dr( "一般环保危害 ") = enviry.Text
dr( "录入状态 ") = 1

Dim cmdbld As New SqlCommandBuilder(adp)
adp.Update(ds, "月份数据动态表 ")

conn.Close()
conn = Nothing
End If
End Sub
先谢谢了！！！

[解决办法]
Dim adapter As New System.Data.OracleClient.OracleDataAdapter
Dim ds As New Data.DataSet
Dim Grid_dr As Data.DataRow
Grid_dr = ds.Tables( "carbelong ").NewRow
Grid_dr.Item( "GXDM ") = CLng(Trim(txtGXDM.Text))
Grid_dr.Item( "GXMC ") = Trim(txtGXMC.Text)
Grid_dr.Item( "QXDM ") = Trim(txtQXDM.Text)


Save_SQL = "insert into VEHICLE.carbelong(GXDM,GXMC,QXDM) values( " & CLng(Trim(txtGXDM.Text)) & _
", ' " & Trim(txtGXMC.Text) & " ', ' " & Trim(txtQXDM.Text) & " ') "

adapter.InsertCommand = New System.Data.OracleClient.OracleCommand(Save_SQL, adapter.SelectCommand.Connection)

ds.Tables( "carbelong ").Rows.Add(Grid_dr)
'写回数据库
adapter.Update(ds.Tables( "carbelong "))
'提交datatable的修改
ds.Tables( "carbelong ").AcceptChanges()

我用的是oracle数据库,不过dataset的用法是一样的