Dim conn As New SqlConnection("Server=localhost;user id=sa;password=ycm119;database=northwind;")
Dim ds As New DataSet
Dim da As New SqlDataAdapter("Select * from Products", conn)
da.Fill(ds, "Products")
Label1.DataBindings.Add(New Binding("Text", ds, "Products.ProductName"))
以上程序是将LABEL的TEXT与PRODUCTS表的PRODUCTNAME字段进行绑定