Using a VB SCript to call Sql View with Parameter

I have a view..VWOpenOrders...

.SELECT     SUM(SorDetail.MOrderQty * SorDetail.MPrice) AS Line, ArCustomer.Name
FROM         SorMaster INNER JOIN
                      ArCustomer ON SorMaster.Customer = ArCustomer.Customer LEFT OUTER JOIN
                      SorDetail ON SorMaster.SalesOrder = SorDetail.SalesOrder
WHERE     (SorMaster.OrderStatus <> '9')
GROUP BY  ArCustomer.Name...

and the Corresponding VB Script is

dim objConnection, objRecordSet

Set objConnection = CreateObject("ADODB.Connection")

Set objRecordSet = CreateObject("ADODB.Recordset")
 

objConnection.Open = "Provider=SQLOLEDB;Data Source=VMXP-SYSSQL08;Initial Catalog=SysproOutdoors;User ID=sa;pwd=100399"

objRecordSet.Open "select Name,Line from VWOpenOrders", objConnection, adOpenStatic, adLockOptimistic


How can i have a parameter field based on entry for ArCustomer.Name