Dim param(0) As ParameterBuilder
 
param(0) = New ParameterBuilder(“@CustomerID”, DbType.UInt32)
Dim CustomerID As Integer = CInt(InputBox(“Enter Customer ID”))
param(0).Value = CustomerID
 
Dim sql As String = “DELETE FROM Customers WHERE CustomerID=@CustomerID”