<%@ Page Language="VB"%>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDB" %>

<script runat="server">
Sub Page_Load(ByVal sender as object, ByVal e as EventArgs)
If Not Page.IsPostBack Then
BindGrid()
End If
End Sub

sub BindGrid()
dim myconnection as OleDbConnection
dim mycommand as OleDbCommand
dim mydatareader as OleDbDataReader
myconnection = new OleDbConnection("tua connessione")
myconnection.open()
mycommand = new OleDbCommand("SELECT * FROM Shipping_Methods", myconnection)
mydatareader = mycommnand.ExecuteReader()
ShipMethod.DataSource = myReader
ShipMethod.DataBind()
mydatareader.Close()
myconnection.Close()
end sub
</script>