ขอตัวอย่างการ Connect SQL Server ด้วย VB.NET จะเป็นพระคุณอย่างยิ่งครับ

		' Create connection to database
		Dim conn As New SqlConnection("packet size=4096;user id=(username);data source=(server name or IP); persist security info=True;initial catalog=(database name);password=*****")

		' Create SQL Command
		Dim cmd As New SqlCommand("SELECT * FROM tablex", conn)

		' For querying data from database
		' Create Data Adapter
		Dim da As New SqlDataAdapter(cmd)

		' Create data set
		Dim ds As New DataSet()

		' Open connection
		If conn.State = ConnectionState.Closed Then
			conn.Open()
		End If

		' Fill data from query into data set
		da.Fill(ds, "Tablename")

		' For insert / update / delete command
		' no need to create data adapter
		cmd = New SqlCommand("INSERT INTO tablex VALUES (@param1, @param2, @param3)")
		cmd.Parameters.Add(New SqlParameter("@param1", SqlDbType.NVarChar, 35, "Param1"))
		cmd.Parameters.Add(New SqlParameter("@param2", SqlDbType.NVarChar, 35, "Param1"))
		cmd.Parameters.Add(New SqlParameter("@param3", SqlDbType.NVarChar, 35, "Param1"))

		' Open connection
		If conn.State = ConnectionState.Closed Then
			conn.Open()
		End If

		' Execute Command - return number of rows affected
		Dim rowaffects = cmd.ExecuteNonQuery()

' Create connection to database
02.Dim conn As New SqlConnection("packet size=4096;user id=(username);data source=(server name or IP); persist security info=True;initial catalog=(database name);password=*****")
03. 
04.' Create SQL Command
05.Dim cmd As New SqlCommand("SELECT * FROM tablex", conn)
06. 
07.' For querying data from database
08.' Create Data Adapter
09.Dim da As New SqlDataAdapter(cmd)
10. 
11.' Create data set
12.Dim ds As New DataSet()
13. 
14.' Open connection
15.If conn.State = ConnectionState.Closed Then
16.conn.Open()
17.End If
18. 
19.' Fill data from query into data set
20.da.Fill(ds, "Tablename")
21. 
22.' For insert / update / delete command
23.' no need to create data adapter
24.cmd = New SqlCommand("INSERT INTO tablex VALUES (@param1, @param2, @param3)")
25.cmd.Parameters.Add(New SqlParameter("@param1", SqlDbType.NVarChar, 35, "Param1"))
26.cmd.Parameters.Add(New SqlParameter("@param2", SqlDbType.NVarChar, 35, "Param1"))
27.cmd.Parameters.Add(New SqlParameter("@param3", SqlDbType.NVarChar, 35, "Param1"))
28. 
29.' Open connection
30.If conn.State = ConnectionState.Closed Then
31.conn.Open()
32.End If
33. 
34.' Execute Command - return number of rows affected
35.Dim rowaffects = cmd.ExecuteNonQuery()