学步园

conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:/Documents and Settings/sidney/デスクトップ/xtreme.mdb")
            cmd = New OleDbCommand
            conn.Open()
            cmd.Connection = conn
            cmd.CommandText = "SELECT * FROM [ORDERS DETAIL] WHERE [ORDER ID]=@orderId AND [PRODUCT ID]=@productId"
            cmd.Parameters.Clear()
            cmd.Parameters.Add(New OleDbParameter("@orderId", sOrderId))
            cmd.Parameters.Add(New OleDbParameter("@productId", sProductId))
            reader = cmd.ExecuteReader
            cmd.Parameters.Clear()
            If reader.Read Then
                Me.txtQuantity.Text = reader("Quantity").ToString
                Me.txtUnitPrice.Text = reader("Unit Price").ToString
            End If