Dim myConnection As SqlClient.SqlConnection
        Dim myCommand As SqlClient.SqlCommand
        Dim myReader As SqlClient.SqlDataReader
        Dim strSql As String
        Dim ConnStr As String

        strSql = "SELECT P_NAME FROM M_PLOR"
        ConnStr = "server=WHATEVER;packet size=4096;user id=sa;password="sa";data source=ISO2;persist secu" & _
                    "rity info=False;initial catalog=wuye"

        myConnection = New SqlClient.SqlConnection(ConnStr)
        myConnection.Open()
        myCommand = New SqlClient.SqlCommand(strSql, myConnection)

        myReader = myCommand.ExecuteReader

        Dim n As Integer
        n = myReader.FieldCount

        Dim str As String


        ShipMethod.DataSource = myReader
        ShipMethod.DataBind()

以上的写法在使用分页显示的时候发生错误,用如下方法替代
Dim myConnection As SqlClient.SqlConnection
Dim myCommand As SqlClient.SqlCommand
Dim mydtadp As SqlClient.SqlDataAdapter
Dim myds As New DataSet
Dim strSql As String
Dim ConnStr As String

strSql = "SELECT * FROM a"
ConnStr = "server=4GROUP;database=chronos;user id=chronos;password=chronos"

myConnection = New SqlClient.SqlConnection(ConnStr)
myConnection.Open()
myCommand = New SqlClient.SqlCommand(strSql, myConnection)
mydtadp = New SqlClient.SqlDataAdapter(strSql,ConnStr)
mydtadp.Fill(myds, "a")
DataGrid1.DataSource = myds.Tables("a").DefaultView
DataGrid1.DataBind()