[VB.NET]帮我看看菜鸟代码??

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
帮我看看菜鸟代码??
这是我新建的类DataBaseSQL

Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class DataBaseSQL

Public Conn As SqlConnection
Public ds As DataSet
Public da As SqlDataAdapter
Public Comm As SqlCommand
Public Str_Con As String

打开数据库连接
Public Overloads Function DBOpen() As System.Data.SqlClient.SqlConnection
Str_Con = server = ;uid=sa;pwd= ;database =gl
Str_Con = Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=gl
Try
Conn = New SqlConnection(Str_Con)
Conn.Open()
DBOpen = Conn
Return Conn
Catch ex As Exception
Conn = Nothing
MessageBox.Show(ex.ToString)
End Try
End Function

关闭数据库连接
Public Overloads Function DBClose() As Boolean
Try
Conn.Close()
Conn = Nothing
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Function

填充数据
Public Function DBDataGridView(ByVal str_cmd As String, ByVal datagv As DataGridView) As String

Try
da = New SqlDataAdapter(str_cmd, Conn)
ds = New DataSet
da.Fill(ds)
datagv.DataSource = ds.Tables
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Function
End Class

我在页面中调用为
Public Dbsql As New DataBaseSQL
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim str As String
str = select * from tb_vi
Dbsql.DBOpen()
Dbsql.DBDataGridView(str, DataGridView1)
Dbsql.DBClose()
End Sub

为什么在DataGridView1不能显示数据了 。。。
__________________________________________________________________________
填充数据
Public Function DBDataGridView(ByVal str_cmd As String, ByVal datagv As DataGridView) As String

Try
da = New SqlDataAdapter(str_cmd, Conn)
ds = New DataSet
da.Fill(ds)
datagv.DataSource = ds.Tables
datagv.DataBind() //LZ上了一个哦 ， C#是datagv.databind（），不知道VB是否也是这样用的！
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Function
End Class
__________________________________________________________________________
vb.net好像不要绑定哦
__________________________________________________________________________
vb.net好像不要绑定哦
__________________________________________________________________________
Public Function DBDataGridView(ByVal str_cmd As String, ByVal datagv As DataGridView) As String//---返回值?

Try
da = New SqlDataAdapter(str_cmd, Conn)
ds = New DataSet
da.Fill(ds)
datagv.DataSource = ds.Tables//這句是得不到數據源的
改成:
datagv.DataSource=ds.Tables(0)
或者:
datagv.DataSource=ds.Tables
datagv.DataMember=ds.Tables(0).TableName
Catch ex As Exception
MessageBox.Show(ex.ToString)
End Try
End Function
__________________________________________________________________________
楼上正确。Tables是一个众多DataTable对象的集合，Tables(0)才是一个DataTable对象。
__________________________________________________________________________