Public Shared Function CreateCustomerAdapter(conn As OracleConnection) As OracleDataAdapter 
  
  Dim da As OracleDataAdapter = New OracleDataAdapter()
  Dim cmd As OracleCommand

  ' Create the SelectCommand.

  cmd = New OracleCommand("SELECT * FROM Dept " & _
                       "WHERE DName = :pDName AND Loc = :pLoc", conn)

  cmd.Parameters.Add("pDName", OracleType.NVarChar, 14)
  cmd.Parameters.Add("pLoc", OracleType.NVarChar, 13)

  da.SelectCommand = cmd

  ' Create the InsertCommand.

  cmd = New OracleCommand("INSERT INTO Dept (DeptNo, DName) " & _
                       "VALUES (:pDeptNo, :pDName)", conn)

  cmd.Parameters.Add("pDeptNo", OracleType.Number, 2, "DeptNo")
  cmd.Parameters.Add("pDName", OracleType.NVarChar, 14, "DName")

  da.InsertCommand = cmd

  Return da
End Function

public static OracleDataAdapter CreateCustomerAdapter(OracleConnection conn)
{
  OracleDataAdapter da = new OracleDataAdapter();
  OracleCommand cmd;

  // Create the SelectCommand.

  cmd = new OracleCommand("SELECT * FROM Dept " +
                       "WHERE DName = :pDName AND Loc = :pLoc", conn);

  cmd.Parameters.Add("pDName", OracleType.NVarChar, 14);
  cmd.Parameters.Add("pLoc", OracleType.NVarChar, 13);

  da.SelectCommand = cmd;

  // Create the InsertCommand.

  cmd = new OracleCommand("INSERT INTO Dept (DeptNo, DName) " +
                       "VALUES (:pDeptNo, :pDName)", conn);

  cmd.Parameters.Add("pDeptNo", OracleType.Number, 2, "DeptNo");
  cmd.Parameters.Add("pDName", OracleType.NVarChar, 14, "DName");

  da.InsertCommand = cmd;

  return da;
}