Sub Установки()
        Dim SqlConn As SqlClient.SqlConnection
        Dim myCommand As SqlClient.SqlCommand
        Dim myReader As SqlClient.SqlDataReader
        '    ------------------------------------------------------------------- 
        SqlConn = New SqlClient.SqlConnection
        SqlConn.ConnectionString = "User ID=sa; Data Source=HP380;Password=sa;Initial Catalog=plast_devel"

        myCommand = New SqlClient.SqlCommand
        myCommand.CommandText = "SELECT NUMBER, NMZAKAZ from dbf_ZAKAZ ORDER BY NUMBER"
        myCommand.Connection = SqlConn

        SqlConn.Open()
        myReader = myCommand.ExecuteReader()

        Me.Zakaz.DataSource = myReader
        Me.Zakaz.DataTextField = "NMZAKAZ"
        Me.Zakaz.DataValueField = "NUMBER"
        Me.Zakaz.DataBind()

        SqlConn.Close()
End Sub