VB的连接代码:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim Conn As SqlConnection = New SqlConnection("Integrated Security=SSPI;Initial Catalog=Northwind;Data Source=localhost")
Dim da As SqlDataAdapter = New SqlDataAdapter("Select * from Customers", Conn)
Dim ds As New DataSet