Visual Basic

<code>
        Dim wr As HttpWebRequest
        Dim wrs As HttpWebResponse


        wr = CType(WebRequest.Create("http://192.168.2.142/"), HttpWebRequest)
        wr.Method = "POST"

        Dim postData = "frmUserName=myUserName...&frmUserPass=myPassword..."
        wr.ContentLength = postData.Length
        wr.ContentType = "application/x-www-form-urlencoded"

        wr.AllowAutoRedirect = False

        Dim buffer() As Byte = System.Text.Encoding.ASCII.GetBytes(postData)

        Dim dataStrm As Stream = wr.GetRequestStream()
        dataStrm.Write(buffer, 0, buffer.Length)
        dataStrm.Close()

        Try

            wrs = wr.GetResponse

            Dim sr As New StreamReader(wrs.GetResponseStream)
            Me.rtxtData.Text = sr.ReadToEnd.ToString()
            sr.Close()

        Catch ex As Exception

            MsgBox(ex.ToString())

        End Try


</code>

<br />
<br />
        Dim speedbar As New Collection<br />
        Dim sql As String<br />
        Dim ds As DataSet = New DataSet<br />
        Dim cmd As OleDb.OleDbCommand = OleDbConnection1.CreateCommand<br />
        cmd.CommandType = CommandType.Text<br />
        sql = "select * from Drinks"<br />
        cmd.CommandText = sql<br />
<br />
        Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter<br />
        da.SelectCommand = cmd<br />
        da.Fill(ds, "Drinks")<br />
<br />
        Dim dc As DataColumn, dr As DataRow<br />
<br />
<br />
<br />
        For Each dr In ds.Tables("Drinks").Rows<br />
            speedbar.Add(dr.Item("Name"))<br />
        Next<br />