With ObjCmd_Project
.Parameters.Add(New OracleParameter(":project_no", Dr_Project("project_no").ToString))
.Parameters.Add(New OracleParameter(":loan_date", Dr_Project("loan_date").ToString))
.Parameters.Add(New OracleParameter(":project_name", Dr_Project("project_name").ToString))
.ExecuteNonQuery()
.Parameters.Clear()
End With