void PrepareDemo ( ) {
   int  id = 20;
   string  desc = "myFirstRegion" ;
   OleDbConnection rConn = new OleDbConnection (
      "Provider=SQLOLEDB; server=localhost; uid=sa; pwd=; database=northwind" );
   rConn.Open ( );
   OleDbCommand command = new OleDbCommand ( null, rConn );

   // set up insert command ...
   command.CommandText = "insert into Region ( RegionID, RegionDescription )
      values ( @id, @desc ) " ;
   command.Parameters.Add ( "@id", id );
   command.Parameters.Add ( "@desc", desc );

   // calling Prepare after having setup commandtext and params.
   command.Prepare ( );  
   command.ExecuteNonQuery ( );

   // change param values and call execute. This time the prepared command will be executed.
   command.Parameters [ 0 ].Value = 21;
   command.Parameters [ 1 ].Value = "mySecondRegion";
   command.ExecuteNonQuery ( );
}

Public Sub PrepareDemo ( )
   Dim id As Integer = 20
   Dim desc As String = "myFirstRegion"
   Dim rConn As OleDbConnection = New OleDbConnection ( _
      "Provider=SQLOLEDB; server=localhost; uid=sa; pwd=; database=northwind" )
   rConn.Open ( )
   Dim command As OleDbCommand = New OleDbCommand ( "", rConn )

   ' set up insert command ...
   command.CommandText = "insert into Region ( RegionID, RegionDescription ) _
      values ( @id, @desc ) "
   command.Parameters.Add ( "@id", id )
   command.Parameters.Add ( "@desc", desc )

   ' Calling Prepare after having setup commandtext and params.
   command.Prepare ( )
   command.ExecuteNonQuery ( )

   ' Change param values and call execute. This time the prepared command will be executed.
   command.Parameters ( 0 ).Value = 21
   command.Parameters ( 1 ).Value = "mySecondRegion"
   command.ExecuteNonQuery ( )
End Sub