01.Dim objConn As New System.Data.SqlClient.SqlConnection
02.Dim objCmd As New System.Data.SqlClient.SqlCommand
03.Dim dtAdapter As New System.Data.SqlClient.SqlDataAdapter
04.
05.Dim ds As New DataSet
06.Dim dt As DataTable
07.Dim strConnString,strSQL As String
08.
09.strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"
10.strSQL = "SELECT * FROM product"
11.
12.objConn.ConnectionString = strConnString
13.With objCmd
14. .Connection = objConn
15. .CommandText = strSQL
16. .CommandType = CommandType.Text
17.End With
18.dtAdapter.SelectCommand = objCmd
19.
20.dtAdapter.Fill(ds)
21.dt = ds.Tables(0)
22.
23.dtAdapter = Nothing
24.objConn.Close()
25.objConn = Nothing
26.
27.ComboBox1.DataSource = dt
28.ComboBox1.DisplayMember = "TypeProductName"
29.ComboBox1.ValueMember = "TypeProductID"
