帮我修改一段取字段代码,谢谢

[Caobiao]

Imports System.Data

Partial Class _Default
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ConStr As String = "Data Source=B;Initial Catalog=DotNet;Persist Security Info=True;User ID=sa"
Dim myAdp As Data.SqlClient.SqlDataAdapter = New Data.SqlClient.SqlDataAdapter("select * from dbo.T_User where FIndex = 1", ConStr)
Dim dt As Data.DataTable = New Data.DataTable
Dim FUserName As String
Dim FPassword As String
myAdp.Fill(dt)
FPassword = DataSet.Tables("T_User").Rows(0).Item("FPassword").ToString()
FUserName = DataSet.Tables("T_User").Rows(0).Item("FUserName").ToString()
End Sub
End Class

DataSet.Tables提示“对非共享成员的引用要求对对象引用”请问要怎样改一下？
谢谢

[stone_soup]

Button1_Click事件中:
------------------------
Dim ConStr As String = "Data Source=B;Initial Catalog=DotNet;Persist Security Info=True;User ID=sa"
Dim ObjCon As SqlClient.SqlConnection = New SqlClient.SqlConnection(ConStr)
Try
ObjCon.Open()
Dim myAdp As Data.SqlClient.SqlDataAdapter = New Data.SqlClient.SqlDataAdapter("select * from dbo.T_User where FIndex = 1", ObjCon)
Dim dt As New DataSet
Dim FUserName As String
Dim FPassword As String
myAdp.Fill(dt, "T_User")
FPassword = dt.Tables("T_User").Rows(0).Item("FPassword").ToString()
FUserName = dt.Tables("T_User").Rows(0).Item("FUserName").ToString()
Catch ex As Exception
MessageBox.Show(ex.Message, ex.Source)
End Try

[amendajing]

FPassword = dt.Rows(0).Item("FPassword").ToString()
FUserName = dt.Rows(0).Item("FUserName").ToString()

[Caobiao]

谢谢！

[amendajing]

Dim dt As Data.DataTable = New Data.DataTable
myAdp.Fill(dt)

你定义的就是dt，数据适配器填充的也是这个dt，为何还用dataset？

而且dataset需要实例化才能象你那样用
Dim ds As Data.DataSet = New Data.DataSet
myAdp.Fill(ds)
Dim FUserName As String
Dim FPassword As String
FPassword = ds.Tables("T_User").Rows(0).Item("FPassword").ToString()
FUserName = ds.Tables("T_User").Rows(0).Item("FUserName").ToString()

[Caobiao]

请问stone_soup(夜不打拾)：
　　为什么 MessageBox.Show(ex.Message, ex.Source)这一句通不过？
提示：“SHOW”不是“_Default.MessageBox”的成员？要怎样改一改？
谢谢

[Caobiao]

TO：amendajing(学习，是个漫长的旅途！)
呵呵，我刚开始学，不清楚：）
谢谢你